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1.0 INTRODUCTION 

1.1 ABSTRACT 

THE RM80 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PR06RAM WHICH 
USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE RM80 DISK 
SUBSYSTEM. IN PARTICULAR. THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
DISK DRIVE. INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 
OPERATIONS; 

TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 
ELECTRICAL INTERFACE; 

TO VERIFY THE FUNCTIONALITY OF THE RM80 SUBSYSTEM. INCLUDING THE 
MASSBUS CONTROLLER. MASSBUS ADAPTER AND THE DISK DRIVE. 

THE TEST IS COMPRISED OF 4 PARTS. WHICH WOULD NORMALLY BE RUN IN 
SEQUENCE. STARTING WITH PART 1. BRIEFLY. PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE. READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE. 
READ AND WRITE CHECK OPERATIONS USING DATA; PART 4 TESTS MECHANICAL 
POSITIONING OPERATIONS AND VARIOUS TIMING PARAMETERS OF THE RM80 DISK 
DRIVE. 


1.2 UNIT UNDER TEST 

THE UNIT UNDER TEST (UUT) IS THE RM80 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RH70 MASSBUS CONTROLLER .THE RM80 MASSBUS ADAPTER . 
AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK IS REQUIRED FOR 
TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK DRIVE. 


2.0 OPERATING REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION. ASSUMED TO BE 
OPERATIONAL. IS REQUIRED TO LOAD AND EXECUTE THE RM80 SUBSYSTEM 
FUNCTIONAL TEST: 

PDP-11 PROCESSOR 
2 OK MEMORY 

KW11-L OR KW11-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH70 CONTROLLER 

1 TO 8 RM80 DISK DRIVES 


2.2 MEDIA REQUIREMENTS 
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EACH UNIT BEIN6 TESTED MUST BE LOADED WITH A DISK BEFORE TESTING 
BEGINS ON THAT UNIT. THE DRIVE MUST HAVE A FORMATTED DISK AND CONTAIN 
A READABLE COPT OF THE MFG(DEC144), USR(DEC144> AND SSF BAD SECTOR 
FILES. 

NOTE: TO ENSURE THAT ALL CUSTOMER DATA IS PRESERVED ON THE DISK. ALL 
DATA TRANSFERS WILL BE PERFORMED ON THE FE CYLINDERS ONLY. 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 


RM80 DISKLESS TEST. PART 1 l 2 
RM80 FUNCTIONAL TEST. PART 1 


3.0 OPERATING PROCEDURE 

3.1 LOADING 

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

.PAPER TAPE. USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
.XXDP MEDIA. USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
OF THE PROGRAM. 

SW15 HALT ON ERROR 

SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 

SW13 INHIBIT ERROR TYPEOUTS 

SW12 UNUSED 

SW11 INHIBIT TEST ITERATIONS 

SW10 BELL ON ERROR 

SW09 LOOP ON ERROR 

SW08 LOOP ON TEST IN SW07-00 

THE LOW ORDER 8 SWITCHES (SW07-SW00). ARE USED IN CONJUNCTION WITH 
SW08 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
LOOP ON. 


3.3 STARTING 

THE PROGRAM HAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 
ENVI RONMENT , THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
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3.4 HALTING 


THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 

NOTE: IF THE PROGRAM IS HALTED BY ANY OTHER MEANS. BAD HEADER 
INFORMATION MAY BE LEFT ON THE DISK. THIS OF COURSE. DEPENDS 
ON WHICH TEST WAS BEING PERFORMED AT THE TIME THE PROGRAM 
WAS HALTED. ALSO. THIS ONLY APPLIES TO A NORMAL (ERROR FREE) 
OPERATION OF THE PROGRAM. 


3.5 RESTARTING 

THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


4.0 OPERATOR INTERFACE 

4.1 PROGRAM ID 

THE PROGRAM TYPES ITS TITLE AND HAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. ALSO. A WARNING MESSAGE IS TYPED. 
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF THE PROGRAM IS 
HALTED IMPROPERLY. THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT 
OCCUR IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 

WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE. IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D. AND WARNING 
MESSAGE.(SEE SECTION 4.1) 

THE FIRST QUESTION TYPED OUT IS: *7YPE HELP TEXT (L) N ?". 

IF THE OPERATOR RESPONDS WITH A "V", THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS. ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A 'IT AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP'S. 

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204. 
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
DIALOGUE. 


EXAMPLE 1 

RMCS1 =176700 <CR> 
RMVEC=000254 <CR> 


;N0 CHANGE IN ADDRESS 
;N0 CHANGE IN ADDRESS 



EXAMPLE 2 
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RMCS1 =176700 1 77200<CR> ; CHANGE BASE ADDRESS TO 177200 
RMVEC =000254 260<CR> .'CHANGE VECTOR ADDRESS TO 260 

ON THE INITIAL START. T ,3 E NEXT QUESTION TYPED IS, 'TYPE "A" TO 
TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN*. THEN, ‘DRIVE (S):' IS TYPED AND WAITS FOR THE 
OPERATOR TO TYPE AN "A". TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING OF DRIVE NUMBER IS) TO BE TESTED AND TERMINATE THE INPUT WITH A 
"CARRIAGE RETURN". NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
STARTS, ONLY THE 'DRIVE(S):' PROMPT IS TYPED. 

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 

•UNIT STATUS: 

0 ONLINE RM80 

1 LOAD DEVICE 

2 OFFLINE RM80 

3 NOT PRESENT 

4 NOT PRESENT 

5 NOT AN RM80 

6 NOT PRESENT 

7 NOT PRESENT* 

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 

1 - 7 WILL NOT BE TESTED. 

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
STATUS OF THE DRIVE: 

'DRIVE (S) TO BE TESTED, O' 

IF NO DRIVES ARE AVAILABLE FOR TESTING. THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 

'DRIVE (S) TO BE TESTED, NONE' 

THE PROGRAM WILL THEN. EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 

•DRIVE O' 

AFTER ALL THE DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 

OF RESPONSE REQUIRED BY THE USER, D=DECIMAL, 0=0CTAL AND 
L=LETTER. 
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229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 


4.3 PROGRESS REPORTS 

AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 

•END OF PASS V 

THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 

•TOTAL ERRORS SINCE LAST REPORT O’ 


4.4 PERFORMANCE REPORT 

NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED. THE DRIVE TYPE. THE TEST NUMBER. THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF. YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR. INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 

THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 


DRV# 0 - 

RM80. TEST# 14. ERR# 326. 

PC=016654 


MASSBUS DATA BUS PARITY ERROR 'MDPE 

(RMCS2. BIT 8) 

DETECTED 

DURING WRITE COMMAND 





EXPECTD 

RECEVD 






040300 

040700 






RMCS1 

RMCS2 

RMDS 

RMER1 

RMER2 

RMAS 


144252 

040700 

010700 

000000 

000000 

000000 


RMWC 

RMBA 

RMDA 

RMOF 

RMDC 

RMEC1 

RMEC2 

177403 

104604 

000002 

010000 

000000 

004066 

000000 

RMMR1 

RMMR2 

RMDT 

RMSN 




000010 

011777 

024026 

177777 
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4.7 EXECUTION TIME 

PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS. 
SUBSEQUENT PASSES TAKE 55 SECONDS. 


PASS 2 AND 


5.0 ENVIRONMENTAL SUPPORT 

5.1 PROCESSOR COMPATIBILITY 

THE RM80 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON A PDP-11/70 
PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 

THE RM80 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 
DUAL PORT LOGIC IN THE RM30 ADAPTER BUT IS EXECUTABLE ON RM80 
SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH 
IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 

MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RM80 SUS8YSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM80 SUSBYSTEM 
FUNCTIONAL TEST. 


5.5 ACT11, APT11 COMPATIBILITY 

THE RM80 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM WILL 
EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 
MODE. 


5.6 XXDP COMPATIBILITY 

THE RM80 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RM80 IS THE XXDP LOADING DEVICE. 
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5./ OPERATING SYSTEM COMPATIBILITY 

THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


6.0 TEST DESCRIPTION 


TEST 1 CONTROLLER ACCESS TEST 
PURPOSE: 

TO VERIFY THAT THE UNIBUS ADDRESS OF THE RM80 SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION $8ASE. 

PROCEDURE: 

THE TEST TRIES TO ACCESS ALL MASS8US CONTROLLER REGISTERS 
USING THE S8ASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 

IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND 
ALONE ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE S8ASE 
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE. THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 


TEST 2 - 30 WRITE/READ HEADER AND DATA (FORMAT) TESTS 
PURPOSE: 

TO TEST WRITE HEADER AND DATA AND READ HEADER AND DATA 
FUNCTIONALITY OF THE RM80 SUBSYSTEM USING A SET OF VARIABLES 
WHICH INCLUDE WORD COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR 
CONDITIONS. 

PROCEDURE: 

ALTHOUGH EACH TEST EXERCISES A DIFFERENT VARIABLE, THE 
GENERAL PROCEDURE OF EACH TEST IS THE SAME. THE DRIVE IS 
INITIALIZED AND RECALIBRATED IF "PIP" OR • < SKI ft ARE ACTIVE SO THAT 
THERE ARE NO ERRORS WHEN A TEST BEGINS. FOLLOWING THAT. THE TEST 
PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR THE CONDITIONS OF THE 
TEST. REGISTERS ARE PRESET AND THE WRITE HEADER AND DATA COMMAND 
IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE. THE TEST STORES 
ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY ERRORS WHICH PRECLUDE 
OTHER STATUS CHECKS. IF THERE ARE NO PRIMARY ERRORS, THE TEST 
VERIFIES THE RESULTS OF THE WRITE COMMAND AND THEN CHECKS FOR 
SECONDARY ERRORS. LOOP ADDRESSES ARE MODIFIED FOLLOWING THE 
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SEQ 0010 


SUCCESSFUL COMPLETION OF THE WRITE COMMAND IN ORDER TO SHORTEN 
EXECUTION TIMES AND ENHANCE SCOPING LOOPS, THEN THE PROGRAM 
EXECUTES THE READ HEADER AND DATA PORTION OF THE TEST, VERIFYING 
THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 

NOTE: THE SECTOR USED DURING A TEST MAY DIFFER FROM THE PROGRAM 
LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR, IF 
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE. 


TEST 2 FORMAT ZEROS TEST 

THE TEST SEEKS TO CYLINDER 559., THEN WRITES HEADER AND DATA 
ON SECTOR 1 IN 18 BIT FORMAT. THE HEADER AND DATA FIELDS ARE ALL 
ZEROS, CAUSING THE DEVICE TO USE NORMAL WRITE GATE. THE HEADER 
AND DATA ARE READ AND COMPARED WITH THE WRITE BUFFER. THE 
INITIAL SEEK POSITIONS THE HEAD SUCH THAT THERE IS NO IMPLIED 
SEEK. THE TEST IS REPEATED FOR 16 BIT FORMAT. 


TEST 3 ZERO FILL TEST TEST 

THE TEST EXECUTES A SEEK TO CYLINDER 559. TO INSURE THAT 
THERE IS NO HEAD MOTION DURING DATA TRANSFER. THIS IS FOLLOWED 
BY A WRITE HEADER AND DATA COMMAND WITH THE WORD COUNT EQUAL TO 
THE SIZE OF THE HEADER WHICH CAUSES THE RH70 TO ZERO FILL THE 
DATA FIELD. THE READ HEADER AND DATA COMMAND THAT FOLLOWS READS 
A FULL SECTOR AND VERIFIES THAT DATA WAS ZERO FILLED. 


TEST 4 FORMAT CHECK ZEROS TEST 


THE TEST WRITES HEADER AND AN ALL ZEROS DATA FIELD. THEN 
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES THERE 
ARE NO ERRORS. 


TEST 5 FORMAT CHECK ZEROS W/ WCE ERROR TEST 

THE TEST WRITES HEADER AND AN ALL ZEROS DATA FIELD. AFTER 
COMPLEMENTING THE LAST WORD OF THE WRITE BUFFER, THE TEST 
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES THAT 
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457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 


L 1 

THE CORRECT WRITE CHECK ERROR IS DETECTED. 


TEST 6 FORMAT ONES TEST 

THE TEST WRITES HEADER AND AN ALL ONES DATA FIELD. THEN 
READS THE HEADER AND DATA. VERIFYING THE READ BUFFER WITH THE 
WRITE BUFFER. THE ALL ONES FIELD IS A CONSTANT FREQUENCY. AND 
THE DRIVE SHOULD USE NORMAL WRITE GATE. 


TEST 7 FORMAT CHECK ONES TEST 

THE TEST FORMATS AN ALL ONES DATA FIELD, THE PERFORMS A 
WRITE CHECK HEADER AND DATA COMMAND, VERIFYING THAT THERE ARE NO 
ERRORS. 


TEST 10 FORMAT CHECK ONES W/ WCE ERROR TEST 

THE TEST FORMATS AN ALL ONES DATA FIELD, THEN COMPLEMENTS 
THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK HEADER AND DATA 
COMMAND IS EXECUTED, AND THE TEST VERIFIES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 


TEST 11 FORMAT MULTIPLE SECTORS TEST 

THE TEST SEEKS TO CYLINDER 559. TO INSURE THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. THE WRITE HEADER AND DATA COMMAND 
FOLLOWS, WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE 
SAME SECTORS ARE VERIFIED WITH A WRITE CHECK HEADER AND DATA 
COMMAND. THE TEST IS REPEATED FOR 16 BIT FORMAT WITH THE SSEI 
BIT SET. 


TEST 12 READ HEADER S DATA W/ HEAD SWITCHING TEST 

THE TEST SEEKS TO CYLINDER 559. TO INSURE THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. THE READ HEADER AND DATA COMMAND 
STARTS WITH CYLINDER 559., TRACK 2, SECTOR 30. THE WORD COUNT IS 
EQUAL TO MULTIPLE SECTORS WHICH CAUSES THE SUBSYSTEM TO SWITCH 


M 1 


SEQ 0012 
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514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 
52f 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 


FROM TRACK 2 TO TRACK 3 AFTER THE FIRST SECTOR IS READ. IF THE 
'SSE* BIT IS SET AFTER EXECUTING A DATA COMMAND. THE 16 BIT MODE 
WILL BE TERMINATED AND THE TEST IS REPEATED FOR 16 BIT FORMAT 
WITH THE SSEI BIT SET, WHERE SECTOR 31. IS THE LAST SECTOR. IF NO 
•SSE' WAS SET, THEN BOTH FORMAT MODES WILL BE EXECUTED. 


TEST 13 READ HEADER t DATA W/ MID-TRANSFER SEEK TEST 

THIS TEST READS MULTIPLE SECTORS STARTING WITH CYLINDER 
559., LAST TRACK AND SECTOR 30., CAUSING A MID-TRANSFER SEEK 
AFTER THE FIRST OF THE MULTIPLE SECTORS IS READ. IF THE *SSE’ BIT 
IS SET AFTER EXECUTING A DATA COMMAND, THE 16 BIT MODE WILL BE 
TERMINATED AND THE TEST IS REPEATED FOR 16 BIT FORMAT WITH THE 
SSEI BIT SET, WHERE SECTOR 31. IS THE LAST SECTOR. IF NO ’SSE' 
WAS SET, THEN BOTH FORMAT MODES WILL BE EXECUTED. 


TEST 14 FORMAT W/ IMPLIED SEEK TEST 

THIS TEST SEEKS TO THE FIRST CYLINDER PRIOR TO WRITING HEADER 
AND DATA ON CYLINDER 559. THE EXPLICIT SEEK INSURES THAT THERE 
WILL BE MAXIMUM HEAD NOTION DURING THE IMPLIED SEEK OF THE WRITE 
COMMAND. THE SAME OPERATION, INCLUDING THE EXPLICIT SEEK IS 
REPEATED FOR READ HEADER AND DATA. 


TEST 15 FORMAT EACH SECTOR ADDRESS TEST 

HEADERS AND DATA OF EACH SECTOR ON CYLINDER 5 C *\, TRACK 2 
ARE FORMATTED AND READ WITH THE PROGRAM VERIFYING HEADERS AND 
DATA. 


TEST 16 FORMAT EACH TRACK ADDRESS TEST 

THIS TEST FORMATS SECTOR 0 OF EACH TRACK ON CYLINDER 560. 
AND READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS AND 
DATA. 
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571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 


8 


TEST 17 READ HEADER & DATA IN LAST SECTOR TEST 

THIS TEST EXECUTES A READS HEADER AND DATA COMMAND ON THE 
LAST SECTOR (30.) OF THE DISK. IN 16 BIT FORMAT MODE AND 
VERIFIES THAT LBT STATUS SETS. IF THE 'SSE' BIT IS SET AFTER 
EXECUTING A DATA COMMAND, THE 16 BIT MODE WILL BE TERMINATED 
AND THE TEST IS REPEATED FOR 16 BIT FORMAT WITH THE SSEI BIT 
SET, WHERE SECTOR 31. IS THE LAST SECTOR. IF NO 'SSE' WAS SET, 
THEN BOTH FORMAT MODES WILL BE EXECUTED. 


TEST 20 READ HEADER & DATA W/ AOE ERROR TEST 

THIS TEST READS MULTIPLE SECTORS IN 16 BIT FORMAT, STARTING 
WITH THE LAST SECTOR 30. AND VERIFIES THAT AOE STATUS SETS. IF 
THE 'SSE' BIT IS SET AFTER EXECUTING A DATA COMMAND. THE 16 BIT 
MODE WILL BE TERMINATED AND THE TEST IS REPEATED FOR 16 BIT 
FORMAT WITH THE SSEI BIT SET, WHERE SECTOR 31. IS THE LAST 
SECTOR. IF NO 'SSE' WAS SET, THEN BOTH FORMAT MODES WILL BE 
EXECUTED. 


TEST 21 READ INVALID SECTOR ADDRESS TEST 

THIS TEST USES AN ILLEGAL SECTOR ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


TEST 22 READ INVALID TRACK ADDRESS TEST 

THIS TEST USES AN ILLEGAL TRACK ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


TEST 23 READ INVALID CYLINDER ADDRESS TEST 

THIS TEST USES AN ILLEGAL CYLINDER ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


TEST 24 FORMAT AT OFFSET TEST 


j 
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SEQ 0014 


628 

629 

630 

631 

632 

633 

634 

635 

636 
677 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 
683 


THE PROGRAM SETS OFFSET MODE AND EXECUTES A WRITE HEADER AND 
DATA COMMAND, VERIFYING THAT OFFSET MODE IS RESET BY THE WRITE 
COMMAND. 


TEST 25 IVC FORMAT TEST 

VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE. THE TEST THEN EXECUTES A WRITE HEADER AND DATA COMMAND AND 
VERIFIES THAT INVALID COMMAND STATUS SETS. THE TEST IS REPEATED 
FOR READ HEADER AND DATA COMMAND. 


TEST 26 FORMAT ERROR TEST 

A SINGLE SECTOR IS FORMATTED WITH THE OFFSET REGISTER SET 
FOR 16 BIT FORMAT AFTER WHICH THE SAME SECTOR IS READ IN 18 BIT 
FORMAT WITH THE PROGRAM VERIFYING THAT FORMAT ERROR STATUS IS 
SET. THE SAME PROCEDURE IS REPEATED WITH THE SECTOR WRITTEN IN 
18 BIT FORMAT AND READ IN 16 BIT FORMAT. 


TEST 27 ft 30 FORMAT HCE TEST (1ST AND 2ND HEADER WORDS) 

THESE TWO TESTS WRITE AN INCORRECT HEADER THEN READ THE 
HEADER AND VERIFY THAT THE CORRECT HEADER ERROR IS DETECTED. THE 
TESTS SETUP THE CORRECT HEADER. THEN COMPLEMENT BIT 0 AND USE THE 
MODIFIED BUFFER TO WRITE THE HEADER. THE PROCESS IS REPEATED 
UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED. 


TEST 31 FORMAT FE CYLINDERS 

THIS TEST FORMATS BOTH FE CYLINDERS TO RE-ESTABLISH THE 
CORRECT FORMAT ON THE SECTORS THAT WERE WRITTEN UPON BY PREVIOUS 
TESTS. THE TEST IS DONE IN 16 BIT FORMAT WITH THE SSEI BIT SET TO 
ALLOW ALL 32 SECTORS ON EACH TRACK TO BE FORMATTED. 


\ 
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SEQ 0015 


.-•LAST REVISION 19-0CT-81 

.TITLE CZRNEAO RM80 FCTNL PT2 
.-•COPYRIGHT (C) 1982 
.-•DIGITAL EQUIPMENT CORPORATION 
.-•COLORADO SPGS. , CO. 80919 

-•PROGRAM BY MIKE LEAVITT 

-•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
.-•PACKAGE (MAINDEC-1 1 -DZQAC-C5) , 18-MAR-81 

ISBTTL OPERATIONAL SWITCH SETTINGS 

;* SWITCH USE 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
UNUSED 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

TNI 28 

TN64 

TN32 

TNI 6 

TN8 

TN4 

TN2 

TNI 


.S8TTL BASIC DEFINITIONS 



.-•INITIAL 

ADDRESS 

OF THE STACK POINTER **• 1100 ••• 

001100 

STACK 

r 

1100 


104000 

ERROR 

s 

EMT 

.-.-BASIC DEFINITION OF ERROR 

000004 

SCOPE 

s 

IOT 

.-.‘BASIC DEFINITION OF SCOPE 


.-•MISCELLANEOUS DEFINITIONS 

000011 

HT 

s 

11 

; :CODE FOR HORIZONTAL TAB 

000012 

LF 

r 

12 

; ; CODE FOR LINE FEED 

000015 

CR 

£ 

15 

.-.-CODE FOR CARRIAGE RETURN 

000200 

CRLF 

s 

200 

; ; CODE FOR CARRIAGE RETURN- 

177776 

PS 

s 

177776 

; .‘PROCESSOR STATUS WORD 

177776 

PSW=PS 




177774 

STKLMT 

£ 

177774 

; .-STACK LIMIT REGISTER 

177772 

PIRQ 

£ 

177772 

.-.-PROGRAM INTERRUPT REQUEST 

177570 

DSWR 

s 

177570 

; .-HARDWARE SWITCH REGISTER 

177570 

DDISP 

- 

177570 

; ; HARDWARE DISPLAY REGISTER 


: *GENERAL 

PURPOSE 

REGISTER DEFINITIONS 

000000 

RO 

£ 

XO 

;; GENERAL REGISTER 

000001 

R1 

£ 

XI 

; .‘GENERAL REGISTER 

000002 

R2 

£ 

12 

;; GENERAL REGISTER 

000003 

R3 

= 

X? 

; .-GENERAL REGISTER 


j 
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000004 R4 * X4 
000005 R5 = X5 
000006 R6 = X6 
000007 R7 = X7 
000006 SP = X6 
000007 PC = X7 


SEO 0016 


[ill] 

ill 

a* 

m 

ill 

it 

ffij 

it] 

• * 

[•Til 

•Jj 

2* 


i y 4 

• 

lili] 

l X 


[iiij 

•t 




r* 




001000 

000400 

000200 

000100 

000040 


GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 


.•♦PRIORITY LEVEL DEFINITIONS 


PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 


.•♦"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15 = 100000 

SW14 = 40000 

SW13 = 20000 

SW12 = 10000 

SW11 = 4000 

SW10 = 2000 

SW09 = 1000 

SW08 = 400 

SW07 = 200 

SW06 = 100 

SW05 = 40 

SW04 = 20 

SW03 = 10 

SW02 = 4 

SW01 = 2 

SWOO = 1 

SW9=SW09 

SW8=SW08 

$W7=SW07 

SW6=SW06 

SW5-SW05 

SW4=SW04 

SW3=SW03 

SW2=SW02 

SW1=SW01 

swo=swoo 

.•♦DATA BIT DEFINITIONS (BITOO TO BIT15) 


BIT15 

BIT14 

BIT13 

BIT12 

BIT11 

BIT10 

BIT09 

BIT08 

BIT07 

BIT06 

BIT05 


100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 
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E 2 


SEQ 0017 



BIT04 = 20 


BIT03 = 10 


BIT02 = 4 


BIT01 = 2 

000001 

BITOO = 1 

001000 

BIT9=BIT09 

000400 

BIT 8=81 T08 

if. iiiKffinpH 

BIT7=8IT07 


BIT6=8IT06 

•fi i • 

BIT5=BI T05 

i)i • •AmBrnm 

BIT4=BIT04 


8IT3=8IT03 


BIT 2=81 T02 


BIT1=8IT01 


BIT0=8IT00 


.-•BASIC "CPU" 


ERRVFC = 4 


RESVEC = 10 


TBITVEC = 14 


TRTVEC = 14 


BPTVEC = 14 


IOTVEC = 20 

t *m 

PWRVEC = 24 


EMTVEC = 30 


TRAPVEC = 34 


TKVEC = 60 


TPVEC = 64 


PIRQVEC = 240 


TRAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 
; RESERVED AND ILLEGAL INSTRUCTIONS 
i'V BIT 
TRACE TRAP 

; BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (IOT) **SCOPE** 
! POWER FAIL 

; EMULATOR TRAP (EMT) **ERROR** 
•TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 


493 

494 


.S6TTL 

Rf 

495 

496 


;*RMCS1 

Cl 

497 

498 

004000 

DVA 

= 

499 


F4 

5 

500 

" ■ ■•tv' 't 'Br ’ 

F3 

S 

501 

^HiTiTi 1 1) 

F2 

ar 

502 

iSMiJiIi iji 

FI 

s 

503 

iifiBt|i]i i!i 

FO 

— 

504 

' ' 

GO 

s 

505 

506 

507 

000077 

FNCMSK 

= 


.•FUNCTION 

508 

000000 

NOP 

s 

509 

iiigi«i vTvw 1 

ILF02 

s 

510 


SEEK 

s 

511 

vyi.'Bi VIil'i-w^^Tl 

RECAL 

- 

512 

Vj flllljl III ['■ 

DRVCLR 

= 

513 


RLEASE 

s 

514 

■ . 9i]i|i|iirS 1 

OFFSET 

— 

515 

^■""1 [m ^ 

RTC 

£ 

516 


RIP 

£ 

517 


PAKACK 

= 

518 


PACACK 

= 

519 

■ MiJiJi Jiw® 

ILF24 

£ 

520 


JLF26 

£ 


.S6TTL RM80 REGISTER BIT DEFINITIONS 


BIT11 

BIT05 

BIT04 

BIT03 

BIT02 

BIT01 

BITOO 

000077 

CODES (BITS 01 
000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000020 
000022 
PAKACK 
000024 
000026 


DEVICE AVAILABLE-READ ONLY 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

GO BIT 

FUNCTION CODE MASK 


-05 OF RMCS1) 

;NOP COMMAND 
; ILLEGAL COMMAND 
;SEEK COMMAND 
; RECALIBRATE COMMAND 
; DRIVE CLEAR COMMAND 
; RELEASE COMMAND 
.•OFFSET COMMAND 
.•RETURN TO CENTER! INE COMMAND 
.-READ IN PRESET COMMAND 
.-PACK ACKNOWLEDGE COMMAND 


.•ILLEGAL COMMAND 
.‘ILLEGAL COMMAND 




F 2 



SEARCH COWHAND 

ILLE6AL COWHAND 

ILLEGAL COWHAND 

ILLEGAL COWHAND 

ILLEGAL COWHAND 

ILLEGAL COWHAND 

ILLEGAL COWHAND 

ILLEGAL COWHAND 

ILLEGAL COWHAND 

WRITE CHECK DATA COWHAND 

WRITE CHECK HEADER AND DATA 

ILLEGAL COWHAND 

ILLEGAL COWHAND 

WRITE DATA COWHAND 

WRITE HEADER AND DATA COWHAND 

ILLEGAL COWHAND 

ILLEGAL COWHAND 

READ DATA COWHAND 

READ HEADER AND DATA COWHAND 

ILLEGAL COWHAND 

ILLEGAL COWHAND 


TRACK ADDRESS 8. 
TRACK ADDRESS 4 
TRACK ADDRESS 2 
TRACK ADDRESS 1 


; SECTOR ADDRESS 16. 
.•SECTOR ADDRESS 8. 
.‘SECTOR ADDRESS 4 
.•SECTOR ADDRESS 2 
.•SECTOR ADDRESS 1 


.•TRACK ADDRESS HASK 
.•SECTOR ADDRESS HASK 


.‘ATTENTION ACTIVE 
;COHPOSITE ERROR 
.•POSITIONING IN PROGRESS 
.‘HEDIUH ON LINE 
.•WRITE LOCK 

.‘LAST BLOCK TRANSFERRED 
; PROGRAMMABLE 
.-DRIVE PRESENT 
.•DRIVE READY 
.VOLUHE VALID 
.-OFFSET NODE ACTIVE 
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6 2 


573 

100000 

DCK 

= BIT15 

574 


UNS 

= BIT14 

575 

■' V vM ' ' * ?-■*’ 

OPI 

= BIT13 

576 

B* t* 

DTE 

= BIT12 

577 

• * ■vP 

WLE 

= BIT11 

578 

■ ‘ tMTf VM ; ''"•’'I 

IAE 

= BIT10 

579 

-- iMAtsaraH 

AOE 

= BIT09 

580 


HCRC 

= BIT08 

581 

> v!* .->1 

HCE 

= BIT07 

582 

lllifltjiji II 

ECH 

= BIT06 

583 

’ ■VtVr 

WCF 

= BIT05 

584 

■viv : ■ 

FER 

= BIT04 

585 


PAR 

= BIT03 

586 

wM 

RMR 

= BIT02 

587 



ILR 

= BIT01 

588 

589 

590 

000001 

ILF 

= BITOO 

115760 

NDTMSK 

r’NDTMS 

= DCK! DTE 

591 

r IS USED 

592 

593 

594 


.•COMMANDS. l.E. , 


;*RMAS 

ATTENTION 

595 

596 

597 

598 

000377 

ATNMSK 

= 377 


;*RMLA 

LOOK AHEA 

599 

600 

002000 

SC4 

= BIT10 

601 

001000 

SC3 

* BIT09 

602 

000400 

SC2 

* BIT08 

603 

000200 

SCI 

= BIT07 

604 

605 

606 

607 

608 

609 

610 

000100 

SCO 

= BIT06 

003700 

SCTMSK 

= 003700 


;*RMMR1 

MAINTENAN 


.•WRITE 

ONLY BITS 

611 


DBCK 

= BIT15 

612 


DBEN 

= BIT14 

613 


DEBL 

= BIT13 

614 

: r ' 

DTO 

= BIT12 

615 

Vn ' ! 1 ! 1 

MCLK 

= BIT11 

616 


MRD 

= BIT10 

617 

001000 

MUR 

= BIT09 

618 

1 T i : < ” tit 

MOC 

= BIT08 

619 

000200 

NSER 

= BIT07 

620 

000100 

MDF 

= BIT06 

621 


MS 

= BIT05 

622 


Hfsff* 

= BIT03 

623 

v'i'H ■ 

Ml 

= BIT02 

624 


MSC 

= BIT01 

625 

626 

627 

000001 

DMD 

= BITOO 


.•READ ONLY BITS 

628 

100000 

OCC 

= BIT15 

629 

040000 

RG 

= BIT14 


DATA CHECK ERROR 
DRIVE UNSAFE 
OPERATION INCOMPLETE 
DRIVE TIMING ERROR 
WRITE LOCK ERROR 
INVALID ADDRESS ERROR 
ADDRESS OVERFLOW ERROR 
HEADER CRC ERROR 
HEADER COMPARE ERROR 
ECC •HARD" ERROR 
WRITE CLOCK FAILURE 
FORMAT ERROR 
PARITY ERROR 

REGISTER MODIFICATION REFUSED 
ILLEGAL REGISTER 
ILLEGAL FUNCTION 


;MASK FOR ATTENTION BITS 


.•SECTOR COUNT * 16 
.•SECTOR COUNT * 8 
.•SECTOR COUNT = 4 
.•SECTOR COUNT = 2 
.•SECTOR COUNT = 1 

.•SECTOR COUNT MASK 


DEBUG CLOCK 

DEBUG CLOCK ENABLE 

DIAGNOSTIC END OF BLOCK 

DIAGNOSTIC TIMEOUT 

MAINTENANCE CLOCK 

READ DATA 

UNIT READY 

ON CYLINDER 

SEEK ERROR 

DRIVE FAULT 

SECTOR PULSE 

WRITE PROTECT 

INDEX PULSE 

SECTOR COMPARE 

DIAGNOSTIC MODE 


.•OCCUPIED 
,-RUN AND GO 


SEO 0019 


l 


t 


i 
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SFO 0020 


020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 

000020 

000010 


BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT07 
BIT06 
BIT05 
BIT04 
BIT03 
BIT 02 
BIT01 
BITOO 


END OF BLOCK 

EXCEPTION 

ENABLE SEARCH 

LOOKING FOR SYNC 

ENABLE CRC OUT 

DATA AREA 

HEADER AREA 

CONTINUE 

WORD CLOCK 

ENABLE ECC OUT 

WRITE DATA BIT 

LAST SECTOR 

LAST SECTOR AND TRACK 

DIAGNOSTIC NODE 



;*RMDT 

DRIVE TYPE REGISTER 

1 

100000 

NSA 

= BIT15 

;N0T SECTOR ADDRESSED - 0 

040000 

TAP 

= BIT14 

.-TAPE DRIVE = 0 

020000 

MOH 

= BIT13 

; MOVING HEAD = 1 

004000 

DRQ 

= BIT11 

.-DRIVE REQUEST REQUIREO 

020026 

SNGPRT 

= 020026 

.•SINGLE PORT DRIVE TYPl 

024026 

DULPRT 

= 024026 

.•DUAL PORT DRIVE TYPE 


;*RMOF 

OFFSET REGISTER 


010000 

FMT16 

= BIT12 

;16 BIT WORD FORMAT 

004000 

ECI 

= BIT11 

;ECC INHIBIT 

002000 

HCI 

= BIT10 

.•HEADER COMPARE INHIBIT 

001000 

SSEI 

= BIT09 

.-SKIP SECTOR ERROR INHIBIT 

000200 

OFD 

= BIT07 

.•OFFSET FORWARD 


;*RMDC 

DESIRED CYLINDER ADDRESS REGISTER 

001777 

CVLMSK 

= 001777 

.-MASK FOR CYLINDER ADDRESS 


;*RMMR2 MAINTENANCE REGISTER #2 

;READ ONLY BITS 
RQA = BIT15 

ROB = BIT14 

TAG = BIT13 

TST = BIT12 

= BIT11 
= BIT10 
= BIT09 
= BITOS 
= 3IT07 
= BIT06 
= BITOS 
= BIT04 
S 81 TC I 
= BIT02 
= BIT01 
= BITOO 


PORT A REQUEST 
PORT B REQUEST 
TAG CONTROL 

COMMAND SEQUENCE TEST BIT 

CONTROL OR CYLINDER TAG 

CONTROL OR HEAD TAG 

TAG BUS 

TAG BUS 

TAG 8US 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 


SEQ 0021 
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I 2 


680 

681 


; *RMER2 ERROR RE 

682 

100000 

BSE 

= BIT15 

683 


SKI 

= BIT14 

684 


OPE 

= BIT13 

685 


IVC 

= BIT12 

686 

004000 

LSC 

= BIT11 

687 

002000 

LBC 

= BIT10 

688 

000200 

DVC 

= BIT07 

689 


SSE 

= BIT05 

690 

691 

692 

693 

000010 

DPE 

= BIT03 


•S8TTL 

PROGRAM 

694 

100000 

MSE 

= BIT15 

695 

040000 

USE 

= BIT14 

6% 

697 

698 

699 

020000 

SSF 

= BIT13 


.S8TTL 

RM80 RE( 

700 

wmy ••• 

RMCS1 

= 00 

701 


RMDA 

= 06 

702 


RMDS 

= 12 

703 

■■ ■Bit* • 9 • 

RMER1 

= 14 

704 

■ . ft. 

RMAS 

= 16 

705 


RMLA 

= 20 

706 

»■««. 1 1 -B 

RMMR1 

= 24 

707 


RMDT 

= 26 

708 


RMSN 

= 30 

709 


RMOF 

- 32 

710 


RMDC 

= 34 

711 

mwhWKmm 

RMHR 

* 36 

712 

■' ' Vt '1 

RMMR2 

= 40 

713 


RMER2 

= 42 

714 


RMEC1 

= 44 

715 


RMEC2 

= 46 

718 


ILRG50 

= 50 


w • • •? 

ILRG52 

= 52 


• *v B 

ILRG54 

= 54 



ILRG56 

= 56 



ILRG60 

= 60 


BwfBpSIlI 

ILRG62 

= 62 



ILRG64 

= 64 


S99Kt » i 

ILRG66 

- 66 


; Vl'M'B - 

ILRG70 

= 70 



ILRG72 

= 72 



ILRG74 

= 74 

719 

000076 

ILRG76 

= 76 

720 

721 

000077 

IDXMSK 

= 77 

722 

723 

724 

725 

726 


.S8TTL 

RH CONT 


;*RMCS1 

CONTROL 

100000 

SC 

= BIT15 

727 

040000 

TRE 

= BIT14 


BAD SECTOR ERROR 
SEEK INCOMPLETE 
OPERATOR PLUG ERROR 
INVALID COMMAND ERROR 
LOSS OF SYSTEM CLOCK 
LOSS OF BIT CLOCK 
DEVICE CHECK 
SKIP SECTOR ERROR 
DATA PARITY ERROR 


; MANUFACTURING DETECTED SECTOR ERROR 
;USER DETECTED SECTOR ERROR 
;SKIP SECTOR FAILURE 


CONTROL STATUS REGISTER #1 
DISK ADDRESS REGISTER 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
MAINTENANCE REGISTER 
DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET REGISTER 
DESIRED CYLINDER REGISTER 
HOLDING REGISTER 
MAINTENANCE REGISTER #2 
ERROR REGISTER #2 
ECC POSITION REGISTER 
ECC PATTERN REGISTER 
ILLEGAL REGISTER 50 
ILLEGAL REGISTER 52 
ILLEGAL REGISTER 54 
ILLEGAL REGISTER 56 
ILLEGAL REGISTER 60 
ILLEGAL REGISTER 62 
ILLEGAL REGISTER 64 
ILLEGAL REGISTER 66 
ILLEGAL REGISTER 70 
ILLEGAL REGISTER 72 
ILLEGAL REGISTER 74 
ILLEGAL REGISTER 76 

MASK FOR REGISTER INDEX NUMBER 


RH CONTROLLER REGISTER BIT DEFINITIONS 


STATUS REGISTER #1 


.•SPECIAL CONDITION-READ ONLY 
.•TRANSFER ERROR 


SEO C022 


CZRNEAO RM80 

FCTNL PT2 

MACRO V04.00 28-JAN-82 
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J 2 

RH CONTROLLER 

REGISTER BIT DEFINITIONS 



728 

020000 

MCPE 

= BIT13 

; MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 

729 

002000 

PSEL 

= BIT10 

.-PORT B SELECT 

730 

001000 

A17 

= BIT 09 

.‘ADDRESS EXTENSION 

731 

000400 

A16 

= BIT 08 

.•ADDRESS EXTENSION 

732 

000200 

RDY 

= BIT07 

; READY-READ ONLY 

733 

000100 

IE 

= BIT06 

.•INTERRUPT ENABLE 



000007 



070000 

004000 

002000 

000100 

000010 



176700 

120254 


;*RMCS2 RH CONTROL STATUS REGISTER 02 


DLT = BIT15 

WCE = BIT14 

UPE = BIT13 

NED - BIT12 

NEM = 81 Til 

PGE = BIT10 

MXF = BIT09 

HOPE = BJT08 

OR = BIT07 

IR = BIT06 

CLR = 8IT05 

PAT - BIT04 

BA1 = BIT03 

U2 = BIT02 

U1 = BIT01 

UO = BITOO 

;UNIT SELECT MASK 

UNTMSK = 7 


DATA LATE-READ ONLY 
WRITE CHECK ERROR-READ ONLY 
UNIBUS PARITY ERROR 
NONEXISTANT DRIVE-READ ONLY 
NONEXISTANT MEMORY-READ ONLY 
PROGRAM ERROR-READ ONLY 
MISSED TRANSFER 

MASSBUS DATA BUS PARITY ERROR-READ ONLY 
OUTPUT READY-READ ONLY 
INPUT READY-READ ONLY 
CONTROLLER CLEAR 
PARITY TEST 

UNIBUS ADDRESS INCREMENT INHIBIT 
UNIT SELECT 
UNIT SELECT 
UNIT SELECT 


;UNIT SELECT MASK 


;*RMCS3 RH70 CONTROL STATUS REGISTER #3 


APE 

DPEHI 

DPELO 

WCEHI 

UCELO 

D6L 

IE 

IPCK3 

IPCK2 

IPCK1 

IPCKO 


BIT15 

BIT14 

BIT13 

3IT12 

BIT11 

BIT10 

BIT06 

BIT03 

BIT02 

BIT01 

BITOO 


ADDRESS PARITY ERROR 
DATA PARITY ERROR HIGH WORD 
DATA PARITY ERROR LOW WORD 
WRITE CHECK ERROR HIGH WORD 
WRITE CHECK ERROR LOW WORD 
DOUBLE WORD TRANSFER 
INTERRUPT ENABLE 
INVERT PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 


.S8TTL RH CONTROLLER REGISTER INDEX VALUES 


RMCS1 

RMWC 

RMBA 

RMCS2 

RMDB 

RMBAE 

RMCS3 

ABASE 

AVECT1 


= 176700 
= 120254 


; CONTROL. STATUS REGISTER #1 
.-WORD COUNT REGISTER 
;8US ADDRESS REGISTER 
.•CONTROL, STATUS REGISTER #2 
.•DATA BUFFER 
;BUS ADDRESS EXTENSION 
.•CONTROL. STATUS REGISTER #3 

; UNIBUS ADDRESS 

.'UNIBUS VECTOR ADDRESS AND PRIORITY 
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K 2 


SEQ 0023 


1 


000174 

000176 


000200 

2 

3 000204 

4 

5 


000000 


000174 

000000 

000000 


000137 

000137 


005434 

005424 


000210 
000046 
000046 031402 
000052 
000052 000000 


6 

7 

8 


000210 

001100 


001100 
000024 
000024 000200 
000044 
000044 001100 
001100 


.SBTTL TRAP CATCHER 

•ALL UNuiED LOCATIONS FROM 4 - 776 CONTAIN A ‘•.♦2,HALr' 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 


DISPREG: 

SUREG: 


.WORD 

.WORD 


0 

0 


.SBTTL STARTING ADDRESS(ES) 
JMP 3A ST ART 

JMP 3ASTART1 

.SBTTL ACT11 HOOKS 


;; SOFTWARE DISPLAY REGISTER 
; .-SOFTWARE SWITCH REGISTER 


;;JUMP TO STARTING ADDRESS OF PROGRAM 
.•CHANGE RH/RM BUS ADDRESS 


.-HOOKS REQUIRED BY ACT11 
SSVPC=. 

.=46 

SENDAD 

.=52 

.WORD 0 
.=SSVPC 


.-SAVE PC 

; ; 1 > SET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

;;2)SET L0C.52 TO ZERO 
;; RESTORE PC 


.=1100 

.SBTTL 


APT PARAMETER BLOCK 


.SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
• • *************************************************************** 
.$X=. .-.-SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.=44 .‘.‘POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR .-.-POINT TO APT HEADER BLOCK 
.=.$X .‘.‘RESET LOCATION COUNTER 

• **************************************************************** 
•SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
.•INTERFACE SPEC. 


001100 


SAPTHD: 

001100 

000000 

SHIBTS: 

001102 

001222 

SMBADR: 

001104 

000024 

STSTM: 

001106 

000024 

SPASTM: 

001110 

000024 

SUNITM: 

001112 

000042 



001114 

TAGADR= 


.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 


0 

SMAIL 

20 . 
20 . 
20 . 


.-TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

; ADDRESS OF APT MAILBOX (BITS 0-15) 

;RUN TIM OF LONGEST TEST 

.‘RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
•ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 


$ETEND-$MAIL/2 ; ;LENGTH MAI LBOX-E TABLE (WORDS) 
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SEQ 0024 


001114 

001114 

001116 

001117 

001120 

001122 

001124 

001126 

001130 

001131 

001132 

001134 

001136 

001140 

001142 

001144 

001146 

001150 

001151 

001152 

001154 

001156 

001160 

001162 

001164 

001166 

001170 

001171 

001172 

001173 

001174 

001176 

001200 

001202 

001204 

001206 

001210 

001212 

001216 

001217 

001220 


0C1114 

000000 

000 

000 

000000 

000000 

000000 

000000 

000 

001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000 

000 

000000 
177570 
177570 
1 77560 
177562 
177564 
177566 
000 
002 
012 
000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

207 

077 

015 

012 


001222 

001222 000000 
001224 000000 
001226 000000 


L 2 


•S8TTL COMMON TAGS 

• • ******************************** t ****************** ************ 

•♦THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
.-♦USED IN THE PROGRAM. 


SCMTAG: 

STSTNM: 

SERF LG: 

SICNT: 

SLPADR: 

SLPERR: 

SERTTL: 

SITEMB: 

SERMAX: 

SERRPC : 

SGDADR: 

SBDADR: 

SGDDAT: 

S6DDAT: 


SAUTOB: 

SINTAG: 


SWR: 
DISPLAY: 
STKS 
STKB 
STPS 
STPB 
SNULL: 
SFILLS: 
SFILLC: 
STPFLG: 
STMPO 
STMP1 
STMP2 
STMP3 
STMP4 
STIMES: 
SE SCAPE 


.=TAGADR 

.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
...ORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 


177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
0 
0 


0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

DSWR 
DDI SP 


;; START OF COMMON TAGS 


.•CONTAINS THE TEST NUMBER 
.•CONTAINS ERROR FLAG 
.•CONTAINS SUBTEST ITERATION COUNT 
.•CONTAINS SCOPE LOOP ADDRESS 
.•CONTAINS SCOPE RETURN FOR ERRORS 
.•CONTAINS TOTAL ERRORS DETECTED 
.•CONTAINS ITEM CONTROL BYTE 
.•CONTAINS MAX. ERRORS PER TEST 
.•CONTAINS PC OF LAST ERROR INSTRUCTION 
.•CONTAINS ADDRESS OF 'GOOD' DATA 
.•CONTAINS ADDRESS OF 'BAD' DATA 
.‘CONTAINS 'GOOD' DATA 
.•CONTAINS 'BAD' DATA 
.•RESERVED— NOT TO BE USED 

.-.•AUTOMATIC MODE INDICATOR 

.‘.•INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A *1INE FEED" 
"TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 

MAX. NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 
QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 

• **************************************************************** 

.S8TTL APT MAI LBOX-E TABLE 

***************************************************************** 


0 

2 

12 

0 

0 

0 

0 

0 

0 


377 

377 SBELL: 

.ASCIZ 

<207><377><377> 


SQUES: 

.ASCII 

/?/ 


SCRLF: 

.ASCII 

<15> 

000 

SLF: 

•ASCIZ 

<12> 


.EVEN 

SMAIL: 

SMSGTY 

SFATAL 

STESTN 


; ;APT MAILBOX 

.WORD AMSGTY ;; MESSAGE TYPE CODE 

.WORD AFATAL ;; FATAL ERROR NUMBER 

.WORD ATESTN ;;TfcST NUMBER 
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SEO 0025 


001230 
001232 
001 234 
001236 
001240 
001242 
001242 
001243 
001244 
001246 
001250 




000000 

000000 

000000 

000000 

000000 

000 

000 

000000 

000000 

000000 


001252 

001253 


001254 000000 


001264 000000 
001266 000 

001267 000 

001270 000000 
001272 120254 
001274 000000 
001276 176700 
001300 
001302 
001304 
001306 


SPASS: 

SDEVCT : 

SUNIT: 

SMSGAD: 

SMSGLG: 

SETA8LE 

SENV: 

SENVM: 

SSUREG: 

SUSWR: 

SCPUOP: 


$MAMS1: 
SMTYP1 : 


SMADR1 : 

$MAMS2: 
SMTYP2: 
SMADR2: 
SMAMS3: 
SMTYP3: 
SMADR3: 
mm S4: 

JMTYP4: 

SMADR4: 

5VECT1 : 

SVECT2: 

J8ASE: 

SDEVM: 

SCDW1 : 

SCDU2: 

SDDUO: 

SDDUl : 

SDDU2: 

SDDU3: 

SDDU4: 

SDDU5: 

SDDW6: 

SDDU7 : 

SETEND: 

.MEXIT 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 

.WORD 


.BYTE 

.BYTE 


.BYTE 

.BYTE 

.WORD 

.BYTE 

.BYTE 

.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


APASS 
ADEVCT 
AUNIT 
AMS GAD 
AMSGLG 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 


AMAMS1 

AMTYP1 


.WORD AMADR1 


AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

ANAMS4 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDW1 

ACDW2 

ADDWO 

ADDW1 

ADDW2 

ADDW3 

ADDW4 

ADDW5 

ADDW6 

ADDW7 


; ;PASS COUNT 
; .-DEVICE COUNT 
;;I/0 UNIT NUMBER 
-MESSAGE ADDRESS 
;; MESSAGE LENGTH 
; ;APT ENVIRONMENT TABLE 
; .-ENVIRONMENT BYTE 
.^ENVIRONMENT MODE BITS 
.-.-APT SWITCH REGISTER 
.-.-USER SWITCHES 
.-.-CPU TYPE. OPTIONS 
BITS 15—1 1-CPU TYPE 

1 1 /04=01 , 1 1 /05=02 , 1 1 /20=0? , 1 1 /40=04 ,11/45=05 
1 1 /70=06.PDQ=07,Q=1 0 
BIT 1 0=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8-MEMORY MANAGEMENT 
;;HIGH ADDRESS, M.S. BYTE 
;;MEM. TYPE.BLKfl 
MEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE =001 
300 NSEC BIP0LAR=002 
500 NSEC MOS=003 

"KeS'lAST^DR^^BYTES.THIS WORD AND LOW OF "TYPE" ABOVE 

;;HIGH ADDRESS, M.S. BYTE 

; ;MEH. TYPE ,BLK#2 

; .-MEM. LAST ADDRESS ,8LK#2 

.-.-HIGH ADDRESS. M.S. BYTE 

;; MEM. TYPE ,BLK#3 

;;MEM.LAST ADDRESS, BLKA3 

.-.-HIGH ADDRESS, M.S. BYTE 

;; MEN. TYPE. BLK#4 

;;MEM.LAST ADDRESS. BLKA4 

;; INTERRUPT VECT0RA1 .BUS PRIORI TY#1 

;; INTERRUPT VECT0R#2BUS PRIORI TY#2 

.-.-BASE ADDRESS OF EQUIPMENT UNDER TEST 

;; DEVICE MAP 

;; CONTROLLER DESCRIPTION W0RD41 
.-.-CONTROLLER DESCRIPTION W0RD/T2 
; .-DEVICE DESCRIPTOR WORDfO 
.-.-DEVICE DESCRIPTOR W0RD#1 
; .-DEVICE DESCRIPTOR W0RD#2 
;; DEVICE DESCRIPTOR W0RD#3 
;; DEVICE DESCRIPTOR W0RD/T4 
DEVICE DESCRIPTOR W0RD#5 
;; DEVICE DESCRIPTOR W0RD#6 
;; DEVICE DESCRIPTOR W0RD#7 
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.SBTTL USER DEFINED TAGS 


SEQ 0026 


001326 

000000 

CTLFG: 

.WORD 

001330 

000000 

CHGADR: 

.WORD 

001332 

000000 

XXDP: 

.WORD 

001334 

OCO 

LSTRK: 

.BYTE 

001335 

015 


.BYTE 


001336 


001336 

001340 

001342 

001344 

001346 

001350 

001352 

001354 

001356 

001360 

001362 

001364 

001366 

001370 

001372 

001374 

001376 

001400 

001402 

001404 

001406 

001410 


001412 


001412 

001414 

001416 

001420 

001422 

001424 

001426 

81 $ 

001434 

001436 



CONTAINS CONTROL-C FLAG 

CHANGE RH/RM BUS ADDRESS = -1. NO CHANGE = 0 

THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 

THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 

'XXDP' DEVICE CODE FOR THE RM80. 

LO BYTE = 0 

HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT 
UNDER TEST. RM80 =13. 


;THE REGISTER INPUT BUFFER IS USED FOR 
.•STORING DRIVE STATUS 


GETBUF: 

.•REGISTER INPUT BUFFER 
RMCS1I: .WORD 0 

RMWCI : .WORD 0 

RMBAI : .WORD 0 

RMDAI : .WORD 0 

RMCS2I: .WORD 0 

RMDSI: .WORD 0 

RMER1I: .WORD 0 

RMASI : .WORD 0 

RMLAI: .WORD 0 

RNDBI: .WORD 0 

RMMR1I: .WORD 0 

RMDTI: .WORD 0 

RMSNI: .WORD 0 

RMOFI : .WORD 0 

RMDCI: .WORD 0 

RMHRI: .WORD 0 

RMMR2I: .WORD 0 

RMER2I : .WORD 0 

RMEC1I: .WORD 0 

RMEC2I: .WORD 0 

RMBAEI: .WORD 0 

RMCS3I: .WORD 0 


CONTROL, STATUS REGISTER #1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER #2 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER #1 
DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET REGISTER 
DESIRED CYLINDER REGISTER 
HOLDING REGISTER 
MAINTENANCE REGISTER #2 
ERROR REGISTER #2 
ECC POSITION REGISTER 
ECC PATTERN REGISTER 
BUS ADDRESS EXTENSION REGISTER 
CONTROL. STATUS REGISTER #3 


.-THE REGISTER OUTPUT BUFFER IS USED FOR 
.-ASSEMBLING DATA GOING TO REGISTER 


PUTBUF: 


; REGISTER OUTPUT BUFFER 
RMCS10: .WORD 0 

RMWCO: .WORD 0 

RMBAO: .WORD 0 

RMDAO: .WORD 0 

RMCS20: .WORD 0 

RMDSO: .WORD 0 

RMER10: .WORD 0 

RMASO: .WORD 0 

RMLAO: .WORD 0 

RMDBO: .WORD 0 

RMHR10: .WORD 0 


CONTROL, STATUS RFGISTER 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER #2 
DRIVE sfATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER #1 



SEQ 0027 
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001440 000000 
001442 000000 
001444 000000 
001446 000000 
001450 000000 
001452 000000 
001454 000000- 
001456 000000 
001460 000000 
001462 000000 
001464 000000 


001466 000000 
001470 

001510 000000 


001512 000000 


001514 000000 


001516 000000 
001520 000000 
001522 000000 
001524 000000 


001526 


001555 
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RMDTO: 

RMSNO: 

RMOFO: 

RMDCO: 

RMHRO: 

RMNR20 

RMER20 

RMEC10 

RMEC20 

RMBAEO 

RMCS30 


.WORD 

.WORD 

yoRD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


B 3 


.-DRIVE TTPE REGISTER 

.•SERIAL NUMBER REGISTER 

iOFFSET REGISTER 

;DESIRED CYLINDER REGISTER 

.•HOLDING REGISTER 

.•MAINTENANCE REGISTER *2 

.‘ERROR REGISTER M2 

;ECC POSITION REGISTER 

;ECC PATTERN REGISTER 

.-BUS ADDRESS EXTENSION REGISTER 

.•CONTROL. STATUS REGISTER Ml 


.•EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
.-THE LOU BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
.•FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
;IN THE TABLE. A ZERO UORD IS A BLANK AND REPRESENTS THE 
;END OF THE QUE. 


TSTQUE: .WORD 0 
* * .BLKU *' 8. 

• .WORD 0 *. 


.•CONTAINS DEVICE POINTER 
.•TEST QUE FOR DEVICES UNDER TEST 
.•TABLE TERMINATOR GOES HERE WHEN 
.-ALL 8. DEVICES ARE UNDER TEST. 


;MEDIA ENABLE IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
.-FOR THE UNIT UNDER TEST. OTHERWISE IT IS ZERO. 

MEDENB: ,UORD>„ 0 ... • ; %;MEDIA ENABLE .* - > 

.•SKIP SECTOR FAILURE ENABLE IS SET r IF THE "SSF" BIT SHOULD BE 
.-SET IN THE FIRST; HEADER. WORD -WHEN THE FE CYLINDERS ARE BEING 
^REFORMATTED. • * -r , ,> a- ^ 


;SSF ENABLE 


SSFENB: .WORD :%0 > 

~ ; LoCATIONS ,, ASNDC" AND * ‘ASNDC* 1 CONTAIN THE CYLINDER, TRACK AND SECTOR 
.•ADDRESS ASSIGNED BY. THE BAD SECTOR MODULE;" ' 

ASNDC: * .WORD 0 v" ' .-ASSIGNED DESIRED CYLINDER 

ASNDA: Xr.U0RD i ;:0 ’ 


CLKADR: * .WORD 
CLKVCT: .WORD 


0 

? 


.•ASSIGNED TRACK, AND SECTOR 
.•UNIBUS ADDRESS OF KW11 CLOCK 
<; VECTOR ADDRESS OF KW11 CLOCK 


.-THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
;ARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
;A NEGATIVE BYTE. ’< 

GETINX: .BLKB , : 23. , .‘GET INDEX TABLE 

•THE PUT INDEX TABLE I CONTAINS A BYTE LIST OF REGISTERS WHICH 
.•ARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
;A NEGATIVE BYTE. 

PUTINX: .BLKB 23. .-PUT INDEX TABLE 
.-PUT TAGS HERE 



CZRNEAO RM80 FCTNL PT 2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 8 
ERROR POINTER TABLE 

.S8TTL ERROR POINTER TABLE 


SEQ 0028 


•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1 : IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SEHRPC). 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

* EM ;; POINTS TO THE ERROR MESSAGE 

* DH ;; POINTS TO THE DATA HEADER 

* DT ;; POINTS TO THE DATA 

* DF ;; POINTS TO THE DATA FORMAT 


001604 


001604 

001606 

001610 

001612 


065442 

071600 

071724 

072014 


SERRTB: 
.•ERROR 1 


WRONG UNIT SELECTED 


001614 

001616 

001620 

001622 


065446 

071600 

071724 

072014 


.•ERROR 2 


DEVICE WENT UNAVAILABLE 


001624 

001626 

001630 

001632 


065454 

071600 

071724 

072014 


.•ERROR 3 


DEVICE WENT NONEXISTENT 


001634 

001636 

001640 

001642 


065462 

071600 

071724 

072014 


.-ERROR 4 


CONTROLLER NOT READY 


001644 

001646 

001650 

001652 


065470 

071600 

071724 

072014 


.•ERROR 5 


DRIVE NOT READY AND GO NOT RESET 


.•ERROR 6 


UNEXPECTED VALUE FOR ,, ATA M STATUS 


J 


I 
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D 3 


SEQ 0029 


001 654 065476 
001656 071600 
001660 071724 
001662 072014 


19 

20 
21 


001664 065504 
001666 000000 


001670 000000 
001672 OCOOOO 


001674 065512 
001676 071600 
001700 071724 
001702 072014 


25 

26 
27 

001704 065516 
001706 071600 
001710 071724 
001712 072014 


001714 065522 
001716 071600 
001720 071724 
001722 072014 


31 

32 

33 

001724 065530 
001726 071600 
001730 071724 
001732 072014 


36 

001734 065542 
001736 071600 
001740 071724 
001742 072014 


EMT6 

EHT1 

EDT1 

EFT1 


.-ERROR 7 BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 

EMT7 

0 

0 

0 


.-ERROR 10 DRIVE NOT READY BUT GO IS RESET 

EMTIO 

EHT1 

EDT1 

EFT1 


.-ERROR 11 GO NOT RESET BUT DRIVE IS READY 

EMT11 

EHT1 

EDT1 

EFT1 


.-ERROR 12 INCORRECT FUNCTION CODE 

EMT12 

EHT1 

EDT1 

EFT1 


.-ERROR 13 PARITY ERROR READING REMOTE REGISTERS 

EMT13 

EHT1 

EDT1 

EFT1 


.-ERROR 14 TRANSFER ERROR IS INCORRECT 

EMT14 

EHT1 

EDT1 

EFT1 


39 


.-ERROR 15 


INCORRECT WORD COUNT 
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SEQ 0030 


001744 06S5S0 
001746 071600 
001750 071724 
001752 072014 


ENT 15 
EHT1 
EDT1 
EFT1 


001754 
C ^1 756 
001760 
001762 


065556 

071600 

071724 

072014 


; ERROR 16 


INCORRECT BUS ADDRESS 


ENT 16 
EHT1 
EDT1 
EFT1 


001764 

001766 

001770 

001772 


065566 

071600 

071724 

072014 


.•ERROR 17 


INCORRECT LBT STATUS 


ENT17 

EHT1 

EDT1 

EFT1 


001 774 
001776 
002000 
002002 


065576 

071600 

071724 

072014 


.•ERROR 20 


INCORRECT AOE 


ENT20 

EHT1 

EDT1 

EFT1 


002004 

002006 

002010 

002012 


065606 

071600 

071724 

072014 


; ERROR 21 


INCORRECT DISK ADDRESS 


ENT21 

EHT1 

EDT1 

EFT1 


002014 

002016 

002020 

002022 


065616 

071600 

071724 

072014 


.•ERROR 22 


INCORRECT CYLINDER ADDRESS 


ENT22 

EHT1 

EDT1 

EFT1 


§02032 


065626 
071 600 
071724 
072014 


.•ERROR 23 


INCORRECT ULE STATUS 


ENT23 

EHT1 

EDT1 

EFT1 


002034 065636 


.ERROR 24 

ENT24 


INCORRECT UPt STATUS 



SEO 0031 



l 
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002130 071724 
002132 072014 


82 

83 

84 


002134 

002136 

002140 

002142 


85 

86 
87 


002144 

002146 

002150 

002152 


88 

89 

90 


002154 

002156 

002160 

002162 


91 

92 

93 


002164 

002166 

002170 

002172 


94 

95 

96 


002174 

002176 

002200 

002202 


97 

98 

99 


002204 

002206 

002210 

002212 


100 
101 
10 2 


002214 

002216 

002220 


065736 

071600 

071724 

072014 


065746 

071600 

071724 

072014 


055756 

071600 

071724 

072014 


065766 

071600 

071724 

072014 


065776 

071600 

071724 

072014 


066004 

071600 

071724 

072014 


066014 

071600 

071724 
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EDT1 

EFT1 


G 3 


SEQ 003? 


.•ERROR 34 


EMT34 

EHT1 

EDT1 

EFT1 


; ERROR 35 


EMT35 

EHT1 

EDT1 

EFT1 


.•ERROR 36 


EMT36 

EHT1 

EDT1 

EFT1 


; ERROR 37 


EMT37 

EHT1 

EDT1 

EFT1 


; ERROR 40 


EMT40 

EHT1 

EDT1 

EFT1 


; ERROR 41 


EMT41 

EHT1 

EDT1 

EFT1 


; ERROR 42 


EMT42 

EHT1 

EDT1 


DTE SHOULD NOT BE SET 


INCORRECT HCRC STATUS 


INCORRECT HCE STATUS 


INCORRECT FER STATUS 


DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 


LOST **0L‘‘ DURING PACK ACKNOWLEDGE 


UNSAFE ERROR DURING PACK ACKNOWLEDGE 



H 3 


SEQ 0033 
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0C2222 

072014 


EFT1 


103 

104 


.-ERROR 

43 

"OPI" ERROR DURING PACK ACKNOWLEDGE 

105 



EMT43 


002224 

066026 



002226 

071600 


EHT1 


00223 0 

071724 


EDT1 


002232 

072014 


EFT1 


106 

107 


.•ERROR 

44 

’W1R" ERROR DURING PACK ACKNOWLEDGE 

108 



EMT44 


002234 

066036 



002236 

071600 


EHT1 


002240 

071724 


E0T1 


002242 

072014 


EFT1 


109 

110 


; ERROR 

45 

"ILR" ERROR DURING PACK ACKNOWLEDGE 

111 



EMT45 


002244 

066046 



002246 

071600 


EHT1 


002250 

071724 


E0T1 


002252 

072014 


EFT1 


112 





113 

114 

002254 


; ERROR 

46 

"ILF" ERROR DURING PACK ACKNOWLEDGE 

066056 


EMT46 


002256 

071600 


EHT1 


002260 

071724 


E0T1 


002262 

072014 


EFT1 


115 

116 


; ERROR 

47 

COMPOSITE ERROR STATUS IS INCORRECT 

117 



EMT47 


002264 

066066 



002266 

071600 


EHT1 


002270 

071724 


E0T1 


002272 

072014 


EFT1 


118 

119 

120 

002274 


; ERROR 

50 

PARITY ERROR WRITING REMOTE REGISTERS 

066074 


EMT50 


002276 

071600 


EHT1 


002300 

071724 


E0T1 


002302 

072014 


EFT1 


121 

122 


; ERROR 

51 

INCORRECT IAE STATUS DURING SEEK COMMAND 

123 



EMT51 


002304 

066104 



002306 

071600 


EHT1 


002310 

071724 


E0T1 


002312 

072014 


EFT1 




PAGE 8-6 


SEQ 0034 


I 3 


OPI ERROR DURING SEEK - MEDIUM IS NOT ON LINE 


OPI ERROR DURING SEEK - MEDIUM IS ON LINE, ASSUME 
ON CYLINDER LATCH DIDN'T RESET 


SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


DEVICE CHECK DURING SEEK COMMAND 


PIP IS STILL SET AFTER SEEK - SKI IS RESET 


ATA DID NOT SET DURING SEEK COMMAND 


IVC ERROR DURING SEEK COMMAND - LOST 
VOLUME VALID 






J 3 

SEQ 0035 
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002402 

072014 


EFT1 



147 

148 


;ERROR 

61 

ERRONEOUS IVC ERROR DURING SEEK COMMAND - 


149 


• 


VOLUME VALID IS STIL SET 


150 



EMT61 



002404 

066240 




002406 

002410 

071600 

071724 


EHT1 

EDT1 



002412 

072014 


EFT1 



151 

152 


.•ERROR 

62 

MOL IS ZERO. BUT OPI WAS NOT 


153 


• 


REPORTED DURING SEEK COMMAND 


154 



EMT62 



002414 

066260 




002416 

071600 


EHT1 



002420 

071724 


EDT1 



002422 

072014 


EFT1 



155 

156 


.‘ERROR 

63 

SSE SHOULD NOT BE SET 


157 



EMT63 



002424 

066274 




002426 

071600 


EHT1 



002430 

071724 


EDT1 



002432 

072014 


EFT1 



158 

159 


.'ERROR 

64 

DRIVE DID NOT DETECT "IVC" ERROR DURING SEEK 


160 



EMT64 



002434 

066304 




002436 

071600 


EHT1 



002440 

071724 


EDT1 



002442 

072014 


EFT1 



161 

162 


; ERROR 

65 

DRIVE EXECUTED A SEEK WITH ERROR SET 

1 

163 



EMT65 



002444 

066324 




002446 

071600 


EHT1 


i 

002450 

071724 


EDT1 



002452 

072014 


EFT1 



164 

165 


.‘ERROR 

66 

UNEXPECTED ERROR SET IN RMER1 


166 



EMT66 


1 

002454 

066344 




002456 

071600 


EHT1 



002460 

071724 


EDT1 



002462 

072014 


EFT1 



167 

168 

169 

002464 

002466 


.-ERROR 

67 

UNEXPECTED ERROR SET IN RMER2 


066356 

071600 


EMT67 

EHT1 


1 



PAGE 8-8 


K 3 


SEQ 0036 


ERRONEOUS "IAE" ERROR DURING RECALIBRATE 


"ILF" ERROR DURING RECALIBRATE 


••DPI" ERROR DURING RECALIBRATE DUE TO 'WOL" = 0 


"DPI" ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


"IVC" ERROR DURING RECALIBRATE - "VV" = 0 


ERRONEOUS "IVC" ERROR DURING RECALIBRATE - *W" = 1 


"SKI" ERROR DURING RECALIBRATE 
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l » 


002560 071724 
002562 072014 


192 

193 

194 


002564 066504 
002566 071600 
002570 071724 
002572 072014 


195 

196 

197 


002574 

002576 

002600 

002602 


198 

199 

200 


002604 

002606 

002610 

002612 


201 

202 

203 


002614 

002616 

002620 

002622 


204 

205 

206 


002624 

002626 

002630 

002632 


207 

208 
209 


002634 

002636 

002640 

002642 


210 

211 

212 


002644 

002646 

002650 


066516 

071600 

071724 

072014 


066534 

071600 

071724 

072014 


066552 

071600 

071724 

072014 


066562 

071600 

071724 

072014 


066574 

071600 

071724 

072014 


066612 

071600 

071724 


EOT 1 
EFT1 


: ERROR 77 


"DVC” OCCURRED DURING RECALIBRATE 


EMT77 

EHT1 

EDT1 

EFT1 


; ERROR 100 LOST , *0L" DURING RECALIBRATE - ‘t>PI ,# = 0 

ENT 100 
EHT1 
EDT1 
EFT1 

.-ERROR 101 LOST *VV" DURING RECALIBRATE - ,, IVC" * 0 

EAT101 

EHT1 

EDT1 

EFT1 

.•ERROR 102 "ATA" DID NOT SET DURING RECALIBRATE 

EWT102 

EHT1 

EDT1 

EFT1 

.•ERROR 103 *W DID NOT RESET DURING RECALIBRATE 

ENT103 

EHT1 

EDT1 

EFT1 

; ERROR 104 ’PIP" IS STIL SET AFTER RECALIBRATE 

EHT104 

EHT1 

EDT1 

EFT1 

.•ERROR 105 UNEXPECTED "ILR" ERROR DURING RECALIBRATE 

ENT105 

EHT1 

EDT1 


SEQ 0037 


i 
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SEQ 0038 


002652 072014 


002654 

002656 

002660 

002662 


066622 

071600 

071724 

072014 


.-ERROR 106 UNEXPECTED ‘*MR" ERROR DURING RECALIBRATE 

EMT106 

EHT1 

EDT1 

EFT1 


002664 

002666 

002670 

002672 


066632 

071600 

071724 

072014 


.-ERROR 107 ' tlNS' ' ERROR DURING RECALIBRATE - AC POWER IS LOU 

EMT107 

EHT1 

EDT1 

EFT1 


002674 

002676 

002700 

002702 


066652 

071622 

071742 

072032 


.•ERROR 110 CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 

EMT110 

EHT110 

EDT110 

EFT110 


002704 

002706 

002710 

002712 


066664 

071626 

071744 

072034 


.•ERROR 111 NONEXISTENT DEVICE 

EMT111 

EHT111 

EDT111 

EFT111 


002714 

002716 

002720 

002722 


066672 

071626 

071744 

072034 


.•ERROR 112 DEVICE NOT AVAILABLE 

EMT112 

EHT111 

EDT111 

EFT111 


002724 

002726 

002730 

002732 


066700 

OOOCOO 

000000 

000000 


.•ERROR 113 BUS TIMEOUT-NED STATUS FAILURE 

EMT113 

0 

0 

0 


002734 

002736 

002740 

002742 


000000 

000000 

000000 

000000 


; ERROR 114 


UNUSED 






N 3 
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1 




234 

235 

236 

002744 


; ERROR 

115 

RMCS1 NOT INITIALIZED BY UNIBUS 

066716 


EMT115 


002746 

071600 


EHT1 


002750 

071724 


EDT1 


002752 

072014 


EFT1 


^37 

238 

239 

002754 


; ERROR 

116 

RMBA NOT INITIALIZED BY UNIBUS 

066726 


EMT116 


002756 

071600 


EHT1 


002760 

071724 


EDT1 


002762 

072014 


EFT1 


240 

241 

242 

002764 


.-ERROR 

117 

RMCS2 NOT INITIALIZED BY UNIBUS 

066736 


EMT117 


002766 

071600 


EHT1 


002770 

071724 


EDT1 


002772 

072014 


EFT1 


243 

244 

245 

002774 


; ERROR 

120 

RMER1 NOT INITIALIZED BY UNIBUS 

066746 


EMT120 


002776 

071600 


EHT1 


003000 

071724 


EDT1 


003002 

072014 


EFT1 


246 

247 

248 

003004 


; ERROR 

121 

RMAS NOT INITIALIZED BY UNIBUS 

066756 


EMT121 


003006 

071600 


EHT1 


003010 

071724 


EDT1 


003012 

072014 


EFT1 


249 

250 

251 

003014 


; ERROR 

122 

RMMR1 NOT INITIALIZED BY UNIBUS 

066766 


EMT122 


003016 

071600 


EHT1 


003020 

071724 


EDT1 


003022 

072014 


EFT1 


252 

253 

254 

003024 

003026 


.•ERROR 

123 

RMDS NOT INITIALIZED BY UNIBUS 

066776 

071600 


EMT123 

EHT1 


003030 

071724 


EDT1 


003032 

072014 


EFT1 



SEQ 0039 


L 


J 
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SEO 0040 


003034 

003036 

003040 

003042 


067006 

071600 

071724 

072014 


; ERROR 124 RMEC2 NOT INITIALIZED BY UNIBUS 

EMT124 

EHT1 

EDT1 

EFT1 


003044 

003046 

003050 

003052 


067016 

071600 

071724 

072014 


.'ERROR 125 RMMR2 NOT INITIALIZED BY UNIBUS 

EHT125 

EHT1 

EDT1 

EFT1 


003054 

003056 

003060 

003062 


067026 

071600 

071724 

072014 


; ERROR 126 RMCS1 NOT CLEARED BY CONTROLLER CLEAR 

EMT126 

EHT1 

EDT1 

EFT1 


003064 

003066 

003070 

003072 


067040 

071600 

071724 

072014 


.ERROR 127 RMBA NOT CLEARED BY CONTROLLER CLEAR 

EMT127 

EHT1 

EDT1 

EFT1 


003074 

003076 

003100 

003102 


067052 

071600 

071724 

072014 


.•ERROR 130 RMCS2 NOT CLEARED BY CONTROLLER CLEAR 

EMT130 

EHT1 

EDT1 

EFT1 


003104 

003106 

003110 

003112 


067064 

071600 

071724 

072014 


.•ERROR 131 RMER1 NOT CLEARED BY CONTROLLER CLEAR 

EMT131 

EHT1 

EDT1 

EFT1 


003114 

003116 

003120 

003122 


067076 

071600 

071724 

072014 


.•ERROR 132 RMAS NOT CLEARED BY CONTROLLER CLEAR 

ENT132 

EHT1 

EDT1 

EFT1 


276 


t 


C 4 


CZRNEAO RM80 FCTNL PT2 MACRO V04 
ERROR POINTER TABLE 


277 

278 


003124 

003126 

003130 

003132 


279 

280 
281 


003134 

003136 

003140 

003142 


28 2 

283 

284 


003144 

003146 

003150 

003152 


285 

286 
287 


003154 

003156 

003160 

003162 


288 

289 

290 


003164 

003166 

003170 

003172 


291 

292 

293 


003174 

003176 

003200 

003202 


294 

295 

296 


297 

298 


067110 

071600 

071724 

072014 


067122 

071600 

071724 

072014 


067134 

071600 

071724 

072014 


067146 

071600 

071724 

072014 


067160 

071600 

071724 

072014 


067170 

071600 

071724 

072014 


003204 067200 
003206 071600 
003210 071724 
003212 072014 
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.•ERROR 133 RNNR1 NOT CLEARED BY CONTROLLER CLEAR 

ENT133 

EHT1 

EDT1 

EFT1 

.•ERROR 134 RNDS NOT CLEARED BY CONTROLLER CLEAR 

EN7134 

EHT1 

EDT1 

EFT1 

.•ERROR 135 RNEC2 NOT CLEARED BY CONTROLLER CLEAR 

ENT135 

EHT1 

EDT1 

EFT1 

.•ERROR 136 RMMR2 NOT CLEARED BY CONTROLLER CLEAR 

ENT136 

EHT1 

EDT1 

EFT1 

.•ERROR 137 RNCS1 NOT CLEARED BY ERROR CLEAR 

ENT137 

EHT1 

EDT1 

EFT1 

; ERROR 140 RNCS2 NOT CLEARED BY ERROR CLEAR 

ENT 140 
EHT1 
EDT1 
EFT1 

.•ERROR 141 RNC51 NOT CLEARED BY DRIVE CLEAR 

ENT141 

EHT1 

EDT1 

EFT1 


.•ERROR 142 RNDS NOT CLEARED BY DRIVE CLEAR 
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SEG 0042 


003214 

003216 

003220 

003222 


067210 

071600 

071724 

072014 


EMT142 

EHT1 

EDT1 

EFT1 


003224 

003226 

003230 

003232 


067220 

071600 

071724 

072014 


.•ERROR 143 RMER1 NOT CLEARED BY DRIVE CLEAR 

ENT143 

EHT1 

EDT1 

EFT1 


003234 

003236 

003240 

003242 


067230 

071600 

071724 

072014 


.-ERROR 144 RMAS NOT CLEARED BY DRIVE CLEAR 

EMT144 

EHT1 

EDT1 

EFT1 


003244 

003246 

003250 

003252 


067240 

071600 

071724 

072014 


; ERROR 145 RMMR1 NOT CLEARED BY DRIVE CLEAR 

EMT145 

EHT1 

EDT1 

EFT1 


003254 

003256 

003260 

003262 


067250 

071600 

071724 

072014 


.•ERROR 146 RMMR2 NOT CLEARED BY DRIVE CLEAR 

EMT146 

EHT1 

EDT1 

EFT1 


003264 

003266 

003270 

003272 


067260 

071600 

071724 

072014 


.•ERROR 147 RMER2 NOT CLEARED BY DRIVE CLEAR 

EMT147 
EHT1 
EDT1 
EFT 1 


003274 

003276 

003300 

003302 


067270 

071600 

071724 

072014 


.•ERROR 150 RMEC2 NOT CLEARED OV DRIVE CLEAR 

EMT150 

EHT1 

EDT1 

EFT1 


.•ERROR 151 


MEDIUM NOT ON LINE 


CZRNEAO RM80 FCTNL PT2 MACRO V04 
ERROR POINTER TABLE 

003304 067300 
003306 071600 
003310 071724 
003312 072014 
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EMT151 

EHT1 

E0T1 

EFT1 


SEO 0043 


003314 

003316 

003320 

003322 


067312 

071600 

071724 

072014 


; ERROR 152 DRIVE FAULT 

ENT152 

EHT1 

EDT1 

EFT1 


003324 

003326 

003330 

003332 


067324 

071600 

071724 

072014 


; ERROR 153 UNSAFE SHOULD BE SET BECAUSE DVC IS SET 

EMT153 

EHT1 

EDT1 

EFT1 


003334 

003336 

003340 

003342 


067342 

071600 

071724 

072014 


.•ERROR 154 UNSAFE SHOULD NOT BE SET. AC IS LOU 

EMT154 

EHT1 

EDT1 

EFT1 


003344 

00334b 

003350 

003352 


067360 

071600 

071724 

072014 


.•ERROR 155 VOLUME VALID NOT SET BY PACK ACK 

EMT155 

EHT1 

EDT1 

EFT1 


003354 

003356 

003360 

003362 


067372 

071600 

071724 

072014 


.•ERROR 156 OFFSET MODE NOT SET BY OFFSET COMMAND 

EMT156 

EHT1 

EDT1 

EFT1 


003364 

003366 

003370 

003372 


067404 

071600 

071724 

072014 


.•ERROR 157 OFFSET MODE NOT RESET BY RTC COMMAND 

ENT! 57 
EHT1 
EDT1 
EFT1 


003374 067416 


.•ERROR 160 RMOF NOT RESET BY RIP COMMAND 
EMT160 






F 4 

SEO 0044 

CZRNFAO RM80 FCTNL PT2 MACRO V04 
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.ERROR POlNiER TABLE 





003376 

071600 


EHT1 



003400 

071724 


EDT1 



003402 

072014 


EFT1 



342 

343 


; ERROR 

161 

RMDA NOT RESET BY RIP COMMAND 


344 



EMT161 



00340* 

067426 




003406 

071600 


EHT1 



003410 

071724 


cDTI 



003412 

072014 


EFT1 



343 

346 


; ERROR 

162 

RMDC NOT RESET BY RIP COMMAND 


347 



EMT162 


| 

003414 

067440 




003416 

071600 


EHT1 



003420 

071724 


EDT1 



003422 

072014 


EFT1 



348 

349 


; ERROR 

163 

DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 


350 




WRITE BUFFER 


351 



EMT336 



003424 

071374 




003426 

071662 


EHT336 



003430 

071760 


EDT336 



003432 

072050 


EFT336 



352 

353 

354 

003434 


.-ERROR 

164 

OPI SHOULD NOT BE SET 


067462 


EMT164 



003436 

071600 


EHT1 



003440 

071724 


EDT1 



003442 

072014 


EFT1 



355 

356 

357 

003444 


.-ERROR 

165 

IVC SHOULD NOT BE SET 

| 

067470 


EMT165 


! 

003446 

071600 


EHT1 



003450 

071724 


EDT1 



003452 

072014 


EFT1 



358 

359 

360 

003454 


.-ERROR 

166 

IAE SHOULD NOT BE SET 


067476 


EMT166 



003456 

071600 


EHT1 



003460 

071724 


EDT1 



003462 

072014 


EFT1 



361 

362 

363 

003464 


.-ERROR 

167 

NEM SHOULD NOT BE SET 


067504 


EMT167 
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SEO 0045 


003466 071600 
003470 071724 
003472 072014 


003474 

003476 

003500 

003502 


067512 

071600 

071724 

072014 


;ERROR 170 INCORRECT ’WOL'* STATUS DURING DIAGNOSTIC MODE 

EMT170 

EHT1 

EDT1 

EFT1 


003504 

003506 

003510 

003512 


067524 

071600 

071724 

072014 


.•ERROR 171 


EMT171 

EHT1 

EDT1 

EFT1 


*ATA" NOT SET DURING RETURN TO CENTERLINE 


003514 

003516 

003520 

003522 


067534 

071600 

071724 

072014 


.•ERROR 172 "ATA” NOT SET BY OFFSET COMMAND 

EMT1 72 
EHT1 
EDT1 
EFT1 


003524 

003526 

003530 

003532 


067544 

071600 

071724 

072014 


.•ERROR 173 RMER2 NOT INITIALIZED BY UNIBUS INIT 

EMT173 

EHT1 

EDT1 

EFT1 


003534 

0C3536 

003540 

003542 


067554 

071600 

071724 

072014 


.•ERROR 174 RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 

EMT174 

EHT1 

EDT1 

EFT1 


003544 

003546 

003550 

003552 


067566 

071600 

071724 

072014 


.•ERROR 175 SELECTED DEVICE IS IN URITE PROTECT 

EHT175 

EHT1 

EDT1 

EFT1 


003554 

003556 


067574 

071600 


.•ERROR 176 CANNOT SET DIAGNOSTIC MODE 

EMT176 

EHT1 


H 4 
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003560 

071724 


003562 

072014 


385 

386 


.-ERROR 

387 

003564 

000000 


003566 

000000 


003570 

000000 


003572 

000000 



EPT1 

EFT1 


177 —RESERVED FOR POWER MONITOR BIT FAILURE 

0 

0 

0 

0 


388 

389 

390 


003574 

003576 

003600 

003602 


391 

392 

393 


003604 

003606 

003610 

003612 


394 

395 

396 


003614 

003616 

003620 

003622 


397 

398 

399 


003624 

003626 

003630 

003632 


400 

401 

402 


003634 

003636 

003640 

003642 


403 

404 

405 


003644 

003646 

003650 


067604 

071600 

071724 

072014 


067616 

071600 

071724 

072014 


067630 

071600 

071724 

072014 


067642 

071600 

071724 

072014 


067654 

071600 

071724 

072014 


067672 

071600 

071724 


; ERROR 200 INCORRECT "PIP" STATUS DURING DIAGNOSTIC MODE 

EMT200 

EHT1 

EDT1 

EFT1 


.-ERROR 201 INCORRECT ’\(RL" STATUS DURING DIAGNOSTIC MODE 

EMT201 

EHT1 

EDT1 

EFT1 


.•ERROR 202 INCORRECT "SKI" STATUS DURING DIAGNOSTIC MODE 

EMT202 

EHT1 

EDT1 

EFT1 


.•ERROR 203 INCORRECT 'DVC" STATUS DURING DIAGNOSTIC MODE 

EMT203 

EHT1 

EDT1 

EFT1 


.•ERROR 204 "VV" WAS NOT RESET BY MAINTENANCE UNIT READT 

EMT204 

EHT1 

EDT1 

EFT1 


.•ERROR 205 SELECTED DEVICE HAS A PERSISTENT "SKI" ERROR 

EMT205 

EHT1 

EDT1 


SFQ 0046 







I 4 

SEQ 0047 
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003652 

072014 


EFT1 



406 

407 


.-ERROR 

206 

"L8C“ DID NOT SET DURING DIAGNOSTIC MODE 


408 



EMT206 



003654 

067702 




003656 

071600 


EHT1 



003660 

071724 


EDT1 



003662 

072014 


EFT1 



409 

410 


; ERROR 

207 

UNEXPECTED LOSS OF ‘MOL’* - MEDIUM IS OFF LINE 


411 



EMT207 



003664 

067712 




003666 

071600 


EHT1 



003670 

071724 


EDT1 



003672 

072014 


EFT1 



412 

413 


.•ERROR 

210 

UNEXPECTED LOSS OF VOLUME VALID - “VV = 0 


414 



EMT210 



003674 

067724 




003676 

071600 


EHT1 



003700 

071724 


EDT1 



003702 

072014 


EFT1 



415 

416 


; ERROR 

211 

UNEXPECTED MECHANICAL MOTION - ’PIP" = 1 


417 



EMT211 



003704 

067732 




003706 

071600 


EHT1 



003710 

071724 


EDT1 



003712 

072014 


EFT1 



418 

419 


.•ERROR 

212 

UNEXPECTED DEVICE FAULT - "DVC" = 1 


420 



EMT212 



003714 

067746 




003716 

071600 


EHT1 



003720 

071724 


EDT1 



003722 

072014 


EFT1 



421 

422 


.•ERROR 

213 

UNEXPECTED SEEK INCOMPLETE ERROR - ,, SKI ,, = 1 


423 



EMT213 



003724 

067762 




003726 

071600 


EHT1 



003730 

071724 


EDT1 



003732 

072014 


EFT1 



424 

425 

426 

003734 


.•ERROR 

214 

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


067772 


EMT214 



003736 

071612 


EHT2 



003740 

071734 


ED72 



003742 

072024 


EFT2 





1 




J 4 

SEQ 0048 

CZRNEAj RMttO FCTNL PT2 MACRO V04.00 28- 

-JAN-8? 16:38:23 

PAGE 8-20 

ERROR POINTER TABLE 





427 

428 

429 

003744 


; ERROR 

215 

DRIVE DID NOT DETECT , •IVC ,, ERROR DURING RECALIBRATE 


070012 


EMT215 



003746 

071612 


EHT2 



003750 

071734 


EDT2 



003752 

072024 


EFT2 



430 

431 


; ERROR 

216 

INCORRECT "IVC" STATUS 


432 



EMT216 



003754 

070024 




003756 

071600 


EHT1 



003760 

071724 


EDT1 



003762 

072014 


EFT1 



433 

434 


.-ERROR 

217 

INCORRECT "IAE" STATUS 


435 



EMT217 



003764 

070034 




003766 

071600 


EHT1 



003770 

071724 


EDT1 



003772 

072014 


EFT1 



436 

437 


.•ERROR 220 

INCORRECT *VLE** STATUS 


438 



EHT220 



003774 

070044 




003776 

071600 


EHT1 



004000 

071724 


EDT1 



004002 

072014 


EFT1 



439 

440 


.•ERROR 

221 

INCORRECT 'IDPI** STATUS 


441 



EHT221 



004004 

070054 




004006 

071600 


EHT1 



004010 

071724 


EDT1 



004012 

072014 


EFT1 



44 2 

443 


.'ERROR 

222 

RN80 DID NOT DETECT RNR ERROR 


444 



EMT222 



004014 

070064 




004016 

071600 


EHT1 



004020 

071724 


EDT1 



004022 

072014 


EFT1 



445 

446 


.'ERROR 

223 

RM80 DID NOT DETECT PARITY ERROR ON NASS8US CONTROL BUS 


447 



ENT223 



004024 

070074 




004026 

004030 

071636 


EHT223 



071750 


EDT223 



004032 

072040 


EFT223 




r 4 


CZRNEAO RM80 FC 

TNL PT2 MACRO V04, 

.00 28- JAN-82 16:38:23 PAGE 8-21 


ERROR POINTER TABLE 





448 

449 


.•ERROR 

224 

SSE NOT DETECTED 

DURING DATA TRANSFER 

450 



EMT224 



004034 

070104 




004036 

071600 


EHT1 



004040 

071724 


EDT1 



004042 

072014 


Ef T1 



451 

452 

453 

004044 


.-ERROR 

225 

"SSEI" NOT RESET 

BY END OF TRACK DURING DATA TRANSFER 

070120 


EMT225 



004046 

071600 


EHT1 



004050 

071724 


EDT1 



004052 

072014 


EFT1 



454 

455 


.-ERROR 

226 

"SSEJ" SHOULD BE 

SET AFTER DATA TRANSFER 

456 



ENT226 



004054 

070140 




004056 

071600 


EHT1 



004060 

071724 


EDT1 



004062 

072014 


EFT1 



457 

458 


.-ERROR 

227 

SSE WAS DETECTED 

U/ SSEI SET 

459 



EMT227 



004064 

070150 




00) 066 

071600 


EHT1 



004070 

071724 


EDT1 



004072 

072014 


EFT1 



460 



230 



461 


.-ERROR 

UNUSED 


462 



EMT230 



004074 

070164 




004076 

000000 


0 



004100 

000000 


0 



004102 

000000 


0 



463 

464 


.-ERROR 

231 

UNUSED 


465 



EMT231 



004104 

070166 




004106 

000000 


0 



004110 

000O00 


0 



004112 

000000 


0 



466 

467 


.-ERROR 

23? 

UNUSED 


468 






004114 

070170 


EMT232 



004116 

000000 


0 



004120 

000000 


0 



004122 

000000 


0 




SEQ 0049 


469 



L 4 


SEQ 0050 


CZRNEAO RM80 FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 8-22 


ERROR POINTER TABLE 




470 


; ERROR 

233 

UNUSED 

471 



ENT233 


004124 

070172 



004126 

000000 


0 


004130 

000000 


0 


004132 

000000 


0 


472 

473 


.•ERROR 

234 

UNUSED 

474 





004134 

000000 


0 


004136 

000000 


0 


004140 

000000 


0 


004H2 

000000 


0 


475 

476 


.•ERROR 

235 

UNUSED 

477 





004144 

000000 


0 


004146 

000000 


0 


004150 

000000 


0 


004152 

000000 


0 


478 

479 


.•ERROR 

236 

UNUSED 

480 





004154 

000000 


0 


004156 

oooooo 


0 


004160 

000000 


0 


004162 

oooooo 


0 


481 

482 


.•ERROR 

237 

UNUSED 

483 





004164 

oooooo 


0 


004166 

oooooo 


0 


004170 

oooooo 


0 


004172 

oooooo 


0 


484 

485 


; ERROR 

240 

UNUSED 

486 





004174 

oooooo 


0 


004176 

oooooo 


0 


004200 

oooooo 


0 


004202 

oooooo 


0 


487 

488 


.•ERROR 

241 

UNUSED 

489 





004204 

oooooo 


0 


004206 

oooooo 


0 


004210 

oooooo 


0 


004212 

oooooo 


0 


490 

491 


.•ERROR 

242 

UNUSED 






M 4 

SEQ 0051 

CZRNEAO RH80 FCTNL PT2 MACRO V04.00 

28- JAN-82 16:38:23 

PAGE 8-23 

ERROR POINTER TABLE 





492 






004214 

000000 


0 



004216 

OGOOOO 


0 



004220 

000000 


0 



004222 

000000 


0 



4Q3 



243 



494 


; ERROR 

UNUSED 


495 






004224 

000000 


0 



004226 

000000 


0 



004230 

000000 


0 



004232 

000000 


0 



496 



244 

UNUSED 


497 


.•ERROR 


49e 






004234 

000000 


0 



004236 

000000 


0 



004240 

000000 


0 



004242 

000000 


0 



499 



245 



500 


.•ERROR 

UNUSED 


501 






004244 

000000 


0 



004246 

000000 


0 



004250 

000000 


0 



004252 

000000 


0 



502 

503 


.•ERROR 

246 

"ATA" NOT RESET BY GO WHEN "ERR" = 0 


504 



EMT246 



004254 

070220 




004256 

071600 


EHT1 



004260 

071724 


EDT1 



004262 

072014 


EFT1 



505 

506 


.•ERROR 

247 

"ATA" NOT RESET BY WRITING RMAS 


507 



EMT247 



004264 

070230 




004266 

071600 


EHT1 



004270 

071724 


EDT1 



004272 

072014 


EFT1 



508 

509 


.•ERROR 

250 

"ATA" WAS RESET BY GO WHEN "ERR" = 1 


510 



EMT250 



004274 

070242 




004276 

071600 


EHT1 



004300 

071724 


EDT1 



004302 

072014 


EFT1 



511 

51 2 


.•ERROR 

251 

PROGRAM INTERRUPT WAS NOT GENERATED 


513 







CZRNEAO RM80 FCTNL PT2 MACRO V04 
ERROR POINTER TABLE 

004304 070256 
004306 071612 
004310 071734 
004312 072024 


.00 28- JAN-82 16:38:23 PAGE 8-24 


EMT251 

EHT2 

EDT2 

EFT2 


SEQ 0052 


004314 070264 
004316 071612 
004320 071734 
004322 072024 


.•ERROR 252 PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 

EMT252 

EHT2 

EDT2 

EFT2 


004324 

004326 

004330 

004332 


070272 

071600 

071724 

072014 


.•ERROR 253 OFFSET MODE WAS NOT RESET BY WRITING RMDC 

EMT253 

EHT1 

Ei)T1 

EFT1 


004334 

004336 

004340 

004342 


070310 

071600 

071724 

072014 


; ERROR 254 INCORRECT "ILF" STATUS 

EMT254 

EHT1 

EDT1 

EFT1 


004344 

004346 

004350 

004352 


070320 

071600 

071724 

072014 


; ERROR 2 55 INCORRECT "ATA'* STATUS 

EMT 255 
EHT1 
EDT1 
EFT1 


004354 

004356 

004360 

004362 


070330 

071650 

071750 

072040 


.•ERROR 256 INCORRECT "ILR" STATUS 

EMT256 

EHT256 

EDT223 

EFT223 


004364 

004366 

004370 

004372 


070340 

071600 

071724 

072014 


; ERROR 257 INVALID IAE STATUS DURING SEARCH COMMAND 

EMT257 

EHT1 

EDT1 

EFT1 


004374 070352 


.•ERROR 260 

EMT260 


"IVC" WAS NOT DETECTED DURING SEARCH COMMAND 


1 

1 




B 5 

SEQ 0053 

CZRNEAO RM80 FCTNL PT2 MACRO V04 

.00 28- JAN-82 16:38:23 PA6E 8-25 

ERROR POINTER TABLE 





004376 

071600 


EHT1 



004400 

071724 


EDT1 



004402 

072014 


EFT1 



535 

536 


.-ERROR 

261 

DRIVE EXECUTED SEARCH WITH ERROR SET 


537 



EMT261 



004404 

070364 




004406 

071600 


EHT1 



004410 

071724 


EDT1 



004412 

072014 


Er fl 



538 

539 


.•ERROR 

262 

“L8C" ERROR NOT SET DURING DIAGNOSTIC MODE 


540 



EMT262 



004414 

070404 




004416 

071600 


EHT1 



004420 

071724 


EDT1 



004422 

072014 


EFT1 



541 

542 


.•ERROR 

263 

"SKI" ERROR DURING SEARCH COMMAND 


543 



EMT263 



004424 

070414 



| 

004426 

071600 


EHT1 


1 

004430 

071724 


EDT1 



004432 

072014 


EFT1 



544 

545 


; ERROR 

264 

••IVC" ERROR DURING SEARCH - LOST VOLUME VALID 


546 



EMT264 



004434 

070424 




004436 

071600 


EHT1 



004440 

071724 


EDT1 



004442 

072014 


EFT1 



547 

548 


.•ERROR 

265 

ERRONEOUS I VC ERROR DURING SEARCH - VOLUME IS VALID 


549 



EMT265 



004444 

070444 




004446 

071600 


EHT1 



004450 

071724 


EDT1 



004452 

072014 


EFT1 



550 

551 


.•ERROR 

266 

DEVICE FAULT (DVC) DURING SEARCH 


552 



EMT266 



004454 

070464 




004456 

071600 


EHT1 



004460 

071724 


EDT1 



004462 

072014 


EFT1 



553 

554 


.-ERROR 

267 

SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 


555 

556 

004464 


9 


ADDRESS IS TOO LARGE 


070476 


EMT267 




SEQ 0054 


CZRNEAO RM80 FCTNL PT2 MACRO V04 
ERROR POINTER TABLE 

004466 071600 
004470 071724 
004472 072014 


.00 28- JAN-82 16:38:23 PAGE 8-26 


004474 

004476 

004500 

004502 


070514 

071600 

071724 

072014 


; ERROR 27 0 OPI ERROR DURING SEARCH BECAUSE MOL = 

EMT270 

EHT1 

EDT1 

EFT1 


004504 

004506 

004510 

004512 


070530 

071600 

071724 

072014 


.-ERROR 271 OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
; DIDN'T DROP 

EMT271 

EHT1 

EDT1 

EFT1 


004514 

004516 

004520 

004522 


070546 

071600 

071724 

072014 


.•ERROR 272 LOST MOL DURING SEARCH. OPI IS NOT SET 

EMT272 

EHT1 

EDT1 

EFT1 


004524 

004526 

004530 

004532 


070564 

071600 

071724 

072014 


.•ERROR 273 PIP STIL SET AFTER SEARCH 

EMT273 

EHT1 

EDT1 

EFT1 


004534 

004536 

004540 

004542 


070602 

071600 

071724 

072014 


.■ERROR 274 PARITY ERROR OCCURRED WHILE WRITING REMOTE 
; REGISTERS BUT MXF DID NOT SET 

EMT274 

EHT1 

EDT1 

EFT1 


004544 

004546 

004550 

004552 


070620 

071600 

071724 

072014 


.•ERROR 275 MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
; COMMAND STARTED 

EMT275 

EHT1 

EDT1 

EFT1 


.•ERROR 276 'W ERROR DURING DATA TRANSFER BECAUSE ’MOL" WAS 


D S 

CZRNEAO RM80 FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 8-27 SEO 0055 


ERROR POINTER 

TABLE 





580 

581 



• 


ZERO 


004554 

070632 


EMT276 




004556 

071600 


EHT1 




004560 

071724 


EDT1 




004562 

072014 


EFT1 



582 




277 

*T)PI" ERROR DURING DATA TRANSFER BECAUSE 


583 



.■ERROR 

1) ON 

584 





CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR 

585 

586 





3) RUN TIMED OUT 


004564 

070646 


EMT277 




004566 

071600 


EHT1 




004570 

071724 


EDT1 




004572 

072014 


EFT1 



587 







588 



; ERROR 

300 

"IVC" ERROR DURING DATA TRANSFER BECAUSE 

VOLUME 

569 

590 





UAS NOT VALID 


004574 

070664 


EMT300 




004576 

071600 


EHT1 




004600 

071724 


EDT1 




004602 

072014 


EFT1 



591 







592 



.’ERROR 

301 

ERRONEOUS “I VC" ERROR DURING DATA TRANSFER - VOLUME 

593 

594 



• 

9 


IS VALID 


004604 

070704 


EMT301 




004606 

071600 


EHT1 




004610 

071724 


EDT1 




004612 

072014 


EFT1 



595 







596 



.-ERROR 

302 

"ILR" ERROR DURING DATA TRANSFER 


597 

004614 

070726 


EMT302 




004616 

071600 


EHT1 




004620 

071724 


EDT1 




004622 

072014 


EFT1 



598 







599 



.-ERROR 

303 

"ILF" ERROR DURING DATA TRANSFER 


600 

004624 

070740 


EMT303 




004626 

071600 


EHT1 




004630 

071724 


EDT1 




004632 

072014 


EFT1 



601 







602 



.-ERROR 

304 

*KMR" ERROR DURING DATA TRANSFER 


603 

004634 

070752 


EMT304 




004636 

071600 


EHT1 




004640 

071724 


E0T1 




SEO 0056 


CZRNEAO RH80 FCTNL PT2 MACRO V04 
ERROR POINTER TABLE 

004642 072014 


.00 28- JAN-82 16:38:23 PAGE 8-28 


004644 

004646 

004650 

004652 


070764 

071600 

071724 

072014 


.•ERROR 305 INCORRECT "lAE" STATUS DURING DATA TRANSFER 

EMT305 

EHT1 

EDT1 

EFT1 


004654 

004656 

004660 

004662 


070776 

071600 

071724 

072014 


.•ERROR 306 "SKr' EFROR DURING DATA TRANSFER 

EMT306 

EHT1 

EDT1 

EFT1 


004664 

004666 

004670 

004672 


071006 

071600 

071724 

072014 


; ERROR 30 7 DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 

EF1T307 

EHT1 

EDT1 

EFT1 


004674 

004676 

004700 

004702 


071026 

071600 

071724 

072014 


.-ERROR 310 DEVICE FAULT DURING DATA TRANSFER 

EMT310 

EHT1 

EDT1 

EFT1 


004704 

004706 

004710 

004712 


071040 

071600 

071724 

072014 


.•ERROR 311 LOSS OF BIT CLOCK DURING DATA TRANSFER 

EMT311 

EHT1 

EDT1 

EFT1 


004714 

004716 

004720 

004722 


071052 

071600 

071724 

072014 


.•ERROR 312 LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 

EHT312 

EHT1 

EDT1 

EFT1 


004724 

004726 

004730 

004732 


071064 

071600 

071724 

072014 


.■ERROR 313 UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 

EMT313 

EHT1 

EDT1 

EFT1 


F 5 

CZRNEAO RM80 FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 8-29 
ERROR POINTER TABLE 


625 

626 
627 


004734 

004736 

004740 

004742 


628 

629 

630 


631 
63 2 
633 


004744 

004746 

004750 

004752 


004754 

004756 

004760 

004762 


634 

635 

636 


004764 

004766 

004770 

004772 


637 

638 

639 


004774 

004776 

005000 

005002 


640 

641 

642 


005004 

005006 

005010 

005012 


643 

644 

645 


005014 

005016 

005020 

005022 


071104 

071600 

071724 

072014 


071116 

071600 

071724 

072014 


071130 

071600 

071724 

072014 


071142 

071600 

071724 

072014 


071152 

071600 

071724 

072014 


071162 

071600 

071724 

072014 


071172 

071600 

071724 

072014 


.ERROR 

314 

DRIVE TIRING ERROR DURING DATA TRANSFER 


EMT314 

EHT1 

EDT1 

EFT1 


.ERROR 

315 

WRITE LOCK ERROR 


EMT315 

EHT1 

E0T1 

EFT1 


.•ERROR 

316 

ERRONEOUS WRITE LOCK ERROR 


EMT316 

EHT1 

EDT1 

EFT1 


; ERROR 

317 

HEADER CRC ERROR DURING DATA TRANSFER 


EMT317 

EHT1 

EDT1 

EFT1 


; ERROR 

320 

FORMAT ERROR DURING DATA TRANSFER 


EMT320 

EHT1 

E0T1 

EFT1 


.•ERROR 

321 

HEADER COMPARE ERROR DURING DATA TRANSFER 


EMT321 

EHT1 

E0T1 

EFT1 


.ERROR 

322 

HEADER ERRORS SHOULD NOT BE SET 


EMT322 

EHT1 

EDT1 

EFT1 



SEO 0057 


CZRNEAO RM30 FCTNL PT2 MACRO 
ERROR POINTER TABLE 


V04.00 28- JAN-82 16:38:23 PA6E 8-30 


6 5 


SEQ 0056 


646 

647 

648 


005024 

005026 

005030 

005032 


649 

650 

651 


005034 

005036 

005040 

005042 


652 

653 

654 


005044 

005046 

005050 

005052 


655 

656 

657 


005054 

005056 

005060 

005062 


658 

659 

660 


005064 

005066 

005070 

005072 


661 

662 

663 


005074 

005076 

005100 

005102 


664 

665 

666 


005104 

005106 

005110 

005112 


071200 

071600 

071724 

072014 


071210 

071600 

071724 

072014 


071222 

071600 

071724 

072014 


071234 

071600 

071724 

072014 


071252 

071600 

071724 

072014 


071264 

071600 

071724 

072014 


071274 

071600 

071724 

072014 


.-ERROR 323 DATA CHECK ERROR DURING DATA TRANSFER 

EMT323 

EHT1 

EDT1 

EFT1 

.-ERROR 324 CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 

EMT324 

EHT1 

EDT1 

EFT1 

.•ERROR 325 UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 

EMT325 

EHT1 

EDT1 

EFT1 

.•ERROR 326 DATA PARITY ERROR DURING READ COMMMAND 

EMT326 

EHT1 

EDT1 

EFT1 

.•ERROR 327 OFFSET MODE NOT RESET BY WRITE COMMAND 

EMT327 

EHT1 

EDT1 

EFT1 

.-ERROR 330 DATA PARITY ERROR DURING WRITE COMMAND 

EMT330 

EHT1 

EDT1 

EFT! 

.•ERROR 331 WRITE CLOCK FAIURE DURING WRITE COMMAND 

EMT331 

EHT1 

EDT1 

EFT! 


667 



SEQ 0059 


C2RNEA0 RM80 FCTNL PT2 MACRO 
ERROR POINTER TABLE 


0051 H 
005116 
005120 
005122 


071306 

071600 

071724 

072014 


V04.00 28- JAN-82 16:38:23 PAGE 8-3 1 

; ERROR 332 DATA LATE ERROR DURING DATA TRANSFER 

EMT332 

EHT1 

EDT1 

EFT1 


005124 

005126 

005130 

005132 


071320 

071600 

071724 

072014 


; ERROR 333 PIP STIL SET AFTER DATA TRANSFER - 

EMT333 

EHT1 

EDT1 

EFT1 


005134 

005136 

005140 

005142 


071336 

071600 

071724 

072014 


.•ERROR 334 LOST MOL DURING DATA TRANSFER - 

EMT334 

EHT1 

EDT1 

EFT1 


005144 

005146 

005150 

005152 


071354 

071600 

071724 

072014 


.•ERROR 335 LOST VOLUME VALID DURING DATA TRANSFER - 

EMT335 

EHT1 

EDT1 

EFT1 


005154 

005156 

005160 

005162 


071374 

071662 

071760 

072050 


.•ERROR 336 DATA READ DOES NOT COMPARE U1TH DATA WRITTEN 

EMT336 

EHT336 

EDT336 

EFT336 


005164 

005166 

005170 

005172 


071404 

071674 

071770 

072060 


; ERROR 337 WRITE CHECK ERROR NOT DETECTED 

EMT337 

EHT337 

EDT337 

EFT337 


005174 

005176 

005200 

005202 


071414 

071662 

071760 

072050 


.•ERROR 340 WRITE CHECK ERROR AT UNEXPECTED ADDRESS 

EMT340 

EHT336 

EDT336 

EFT336 


.•ERROR 341 INCORRECT DATA DURING WRITE CHECK ERROR 


CZRNEAO RM80 FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PA6E 8-32 SEO 0060 


ERROR POINTER TABLE 




690 



EMT341 

EHT336 


005204 

005206 

071426 

071662 



005210 

071760 


EDT336 


005212 

072050 


EFT336 


691 

693 


.-ERROR 

342 

EMT342 

"1VC" ERROR NOT DETECTED DURING DATA TRANSFER 

005214 

071434 



005216 

071600 


EHT1 


005220 

071724 


EDT1 


005222 

072014 


EFT1 


694 

695 


; ERROR 

343 

"FER" NOT DETECTED DURING DATA TRANSFER 

696 



EMT343 


005224 

071446 



005226 

071600 


EHT1 


005230 

071724 


EDT1 


005232 

072014 


EFT1 


697 

698 


.-ERROR 

344 

‘BCE’* NOT DETECTED DURING DATA TRANSFER 

699 



EMT344 


005234 

071460 



005236 

071706 


EHT344 


005240 

072000 


EDT344 


005242 

072070 


EFT344 


700 

701 


.-ERROR 

345 

*BSE" NOT DETECTED DURING DATA TRANSFER 

7C2 



EMT345 


005244 

071472 



005246 

071600 


EHT1 


005250 

C71724 


E0T1 


005252 

072014 


EFT1 


703 

704 


.-ERROR 

346 

HEADER ERROR WAS DETECTED U/ HCI SET 

705 



EMT346 


005254 

071502 



005256 

071600 


EHT1 


005260 

071724 


E0T1 


005262 

072014 


EFT1 


706 

707 


.-ERROR 

347 

DATA TRANSFER NOT ABORTED U/ COMP ERROR SET 

708 



EMT347 


005264 

071516 



005266 

071600 


EHT1 


005270 

071724 


E0T1 


005272 

072014 


EFT1 


709 

710 


.-ERROR 

350 

LOST VOLUME VALID DURING SEARCH - "IVC" * 0 

711 
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005274 

005276 

005300 

005302 

071530 

071600 

071724 

072014 


ENT350 

EHT1 

EDT1 

EFT1 


712 

713 
71 A 

005304 

005306 

005310 

005312 

071546 

071600 

071724 

072014 

.ERROR 

351 

EMTJ51 

EHT1 

EDT1 

EFT1 

"ATA" DID NOT SET DURING SEARCH 

715 

716 

717 

005314 

005316 

005320 

005322 

071556 

000000 

000000 

000000 

;ERROR 

352 

EMT352 

0 

0 

0 

PROGRAM TIMEOUT WHILE TESTING RMLA 

718 

719 

720 

005324 

005326 

005330 

005332 

071562 

071720 

072012 

072100 

.‘ERROR 

353 

EMT353 

EHT353 

EDT353 

EFT353 

LOOK AHEAD TEST FAILS 

721 

722 

723 



.’ERROR 

354 

BSE SHOULD NOT BE SET 

005334 

005336 

005340 

005342 

071572 

071600 

071724 

072014 


EMT354 

EHT1 

EDT1 

EFT1 


724 

725 



.-PUT ERROR TABLE HERE 
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1 .S8TTL ERROR TABLE USAGE 


SEO 0062 


THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
NUMBER, I.E.. 

ENT - ERROR MESSAGE TABLE ADDRESS 
EHT - ERROR HEADER TABLE ADDRESS 
EDT - ERROR DATA TABLE ADDRESS 
EFT - ERROR FORMAT TABLE ADDRESS 

THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 
FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
NO MESSAGE TO BE TYPED FOR THE ERROR. 

SIMILARLY. THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES _ 

OF HEADER. DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
IN THE ERROR HEADER TABLE MAY OR HAY NOT HAVE AN ASSOCIATED LINE OF 
DATA, HOWEVER. EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 

BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER. AND EACH DATA LINE 
MUST ALSO HAVE A FORMAT. 

IN SUMMARY 

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE. 

EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
OF MESSAGE STRINGS. HEADERS, DATA OR FORMAT . 


MN-tOOOONOuii'WIU-'COaN OV/tX'CrtfVI-* 
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L 5 


SEO 0063 


;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


005344 011600 
005346 005740 
005350 022626 
005352 104401 005360 
005356 000417 

0054.6 

005416 010046 
0C5420 104402 
005422 000240 


005432 000402 


005440 000240 
005442 005227 
005446 001375 
005450 000005 


BADTMO: 


;;65S: 

64$: 


MOV 

TST 

CMP 

TYPE 

BR 

.ASCIZ 

MOV 

TYPOC 

NOP 


(SP).RO .'SAVE PC WHERE THE TIME OUT OCCURED 

-<R0J ; ADJUST PC -2 

<SP)*.(SP)+ .-RESTORE STACK POINTER 

.65$ ; ; TYPE ASCIZ STRING 

64$ :;GET OVER THE ASCIZ 

<CRLF ^UNEXPECTED BUS TIMEOUT. PC=/ 


RO.-(SP) 



.SBTTL 

START 

OF PROGRAM 

177777 001330 

START1 : 

MOV 

#-1 , CHGADR 


BR 

START2 

001330 

START: 

CLR 

CHGADR 

START2: 

NOP 

#0 

000000 


INC 



BNE 

RESET 

.-4 


.•SETUP FOR TYPING OUT PC 

;PUT ’HALT(O) ' INSTRUCTION HERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 


.•CHANGE RH/RM BUS ADDRESS 


;N0 CHANGE IN ADDRESS 

;TTY LOOP. WAIT FOR INCREMENT 
;0F WORD 

.•RESET THE WORLD 


005452 

005456 

005460 

005464 

005466 

005472 

005500 

005506 

005514 

005522 

005530 

005536 

005544 

005552 

005560 

005564 

005570 

005576 

005604 


005612 

005616 

005624 

005632 

005640 

005646 


012706 

005026 

022706 

001374 

012706 

012737 

012737 

012737 

012737 

012737 

012737 

012737 

012737 

013737 

005037 

005037 

112737 

012737 

012737 


001114 

001154 

001100 

057114 

000340 

057710 

000340 

062714 

000340 

063022 

000340 

031240 

001206 

001210 

000001 

005576 

005604 


;; FIRST LOCATION TO BE CLEARED 
;; CLEAR MEMORY LOCATION 
• •DONF‘ > 

••LOOP 'BACK IF NO 
;; SETUP THE STACK POINTER 


013746 000004 
012737 005652 
012737 177570 
012737 177570 
022777 177777 
001012 


000020 

000022 

000030 

000032 

000034 

000036 

000024 

000026 

031232 


001131 

001122 

001124 


000004 

001154 

001156 

173306 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 
#$CMTAG.R6 
(R6)* 

#SUR.R6 

#STACK,SP 
FEW VECTORS 

#$SCOPE,a#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
#340,a#IOTVEC*2 ; .-LEVEL 7 

#$ERROR,i#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340.a#EMTVEC*2 ; .‘LEVEL 7 
#$TRAP,»#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340.a#TRAPV£C*2;LEVEL 7 
#$PWRDN.8#PWRVEC ; .-POWER FAILURE VECTOR 
#340 , 8#PWRV£ C*2 ;. -LEVEL 7 

$ENDCT.$EOPCT ; .‘SETUP END-OF -PROGRAM COUNTER 

STIMES ;; INITIALIZE NUMBER OF ITERATIONS 

$ESCAPE ;; CLEAR THE ESCAPE ON ERROR ADDRESS 

#1 ,$ERMAX ; .-ALLOW ONE ERROR PER TEST 

#.,$LPADR .-.-INITIALIZE THE LOOP ADDRESS FOR SCOPE 

nw #.,$LPERR ;; SETUP THE ERROR LOOP ADDRESS 

.-.-SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


.SBTTL 
;; CLEAR 

MOV 
CLR 
CMP 
BNE 
MOV 

;; INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 


005650 000403 


; .-EQUAL TO A "-I", SETUP FOR A 
MOV 8#ERRVEC.-(SP) 

MOV #64$.i#ERRVEC 

MOV fDSWR.SWR 

MOV #DD ISP. DISPLAY 

CMP #-1.8SWR 

BNE 66$ 

BR 65$ 


SOFTWARE SWITCH REGISTER. 

.-.-SAVE ERROR VECTOR 
.-.-SET UP ERROR VECTOR 
.-.-SETUP FOR A HARDWARE SWICH REGISTER 
.-.-AND A HARDWARE DISPLAY REGISTER 
; ; TRY TO REFERENCE HARDWARE SWR 
;. -BRANCH IF NO TIMEOUT TRAP OCCURRED 
.-.-AND THE HARDWARE SWR IS NOT = -1 
; .-BRANCH IF NO TIMEOUT 
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SEQ 0064 


005652 

005656 

005660 

005666 

005674 

005700 

005704 

005712 

005714 

005722 

24 

25 005722 

26 005730 

27 

28 

005736 

005742 

005744 

005752 

005754 

005760 

006032 

006032 

006036 

006040 

006046 

006050 

006056 

006060 

006062 

006064 

006072 

29 

30 

31 

32 

33 006072 

34 006076 

35 006104 

36 006106 

37 006114 

38 006122 

39 006124 

40 00613C 

41 006134 

42 006136 
006142 

006170 

43 006170 

44 006172 

45 006176 

46 006200 


012716 

012737 

012637 

005037 

132737 

001403 

012737 


012737 

012737 


005227 

001033 

022737 

001427 

1C4401 

000424 


005660 

000176 

000174 

000004 

001230 

000200 


001154 

001156 


001243 


001244 001154 


005344 

000300 


177777 


000004 

000006 


031402 000042 
005762 


005737 000042 
001012 

123727 001242 
001406 

023727 001154 
001005 
104407 
000403 

112737 000001 


005037 

122737 

001121 

013737 

122737 

103002 

105037 

005737 

001425 

104401 

000412 


005046 

113716 

104403 

001 


001332 

000016 

000040 

000007 

001332 

000042 

006144 


001332 


MOV #65$, (SP) ;;SET UP FOR TRAP RETURF 

RTI 

MOV fSWREG.SWR ; .-POINT TO SOFTWARE SUR 

MOV #DI SPREG ,DI SPLAY 

MOV (SP)*.a#ERRVEC ;; RESTORE ERROR VECTOR 


;;SET UP FOR TRAP RETURN 


SPASS 

#APTSIZE.$ENVM 

67$ 

#$SUREG,SWR 


; .-CLEAR PASS COUNT 
; ; TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
;;NO,USE APT SWITCH REGISTER 


.-SETUP •’TIMEOUT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV #8ADTM0,ERRVEC .'SETUP FOR UNEXPECTED TIMEOUT 

MOV #PR6,ERRVEC*2 .‘LEVEL 6 


.SBTTL TYPE PROGRAM NAME 
.-.-TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-1 .'.'FIRST TIME 

BNE 68$ ; .-BRANCH IF 

CMP #$ENDAD,8#42 ; .-ACT-11? 

BEQ 68$ ; .'BRANCH IF 

TYPE .69$ .'.'TYPE ASCIZ 

BR 68$ .'.'GET OVER T 

.ASCIZ 


;:69$: 

6 &$: 

.SBTTL 


.'.•FIRST TIME? 
.-.'BRANCH IF NO 
; .-ACT-11? 

.-.'BRANCH IF YES 
..•TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


<CRLF>aCZRNEAO - RM80 FUNCTIONAL TEST. PT 23<CRLF> 


000001 

000176 


001150 


GET VALUE FOR SOFTWARE SWITCH REGISTER 

TST a#42 ;;ARE WE RUNNING UNDER XXDP/ACT? 

BNE 70$ .-.'BRANCH IF YES 

CMP8 $ENV.#1 ;;ARE WE RUNNING UNDER APT? 

BEQ 70$ .-.‘BRANCH IF YES 

CMP SWR.#SWREG ;; SOFTWARE SWITCH REG SELECTED? 

BNE 71$ .'.‘BRANCH IF NO 

GTSWR .'.'GET SOFT-SWR SETTINGS 

BR 71$ 

MOVB #1 ,$AUT08 .'.'SET AUTO-MODE INDICATOR 


.-THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
.'PAPER TAPE (MANUAL). ACT11 , XXDP CHAIN OR DUMP 


000041 

001332 

001332 



CLR 

XXDP 

CLEAR 'XXDP* LOAD DEVICE STORAGE 


CMPB 

#16.a#41 

LOADED FROM AN RM80 ? 


BNE 

3$ 

BR IF NOT 


MOV 

a#40.XXDP 

GET DEVICE INDICATOR AND NUMBER 


CMPB 

#7, XXDP 

IS IT A VALID NUMBER ? 


BHJS 

1$ 

YES 


CLR8 

XXDP 

NO, DEFAULT TO DRIVE 0 

1$: 

TST 

a#4 2 

CHAIN MODE OR ACT11 AUTO ACCEPT ? 

BEQ 

2$ 

BR IF NEITHER 


T YPE 

.73$ 

.•TYPE ASCIZ STRING 


BR 

} 2 $ 

.'GET OVER THE ASCIZ 

;:73$: 

.ASCIZ 

<CRLF>/NOT TESTING DRIVE / 

ft$: 

CLR 

-(SP) 

CLEAR WORD ON STACK 


MOVB 

XXDP, (SP) 

GET DRIVE ADDRESS 


TYPOS 

.BYTE 

1 

TYPE THE ADDRESS 

ONLY 1 CHARACTER 
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SEQ 0065 


47 006201 

48 00620? 

49 006206 

50 

51 006210 

52 006214 

53 006216 
006222 

006244 

54 006244 

55 006246 

56 006252 

57 006254 

58 006255 

59 006256 
006262 


006350 

63 

64 

65 006350 

66 006354 

67 006356 

68 

69 

70 006364 

71 006364 

72 006372 

73 

74 006374 

75 006376 

76 006402 

77 

78 006406 

79 006414 

80 006416 

81 006422 
006424 
006426 
006427 

82 006430 

83 

84 0064^4 

85 006442 

86 006446 

87 006452 

88 006460 

89 006462 

90 006470 

91 006472 

92 006500 


006516 

006520 

006524 


000 

104401 

000460 

005227 

001055 

104401 

000410 


005046 

113716 

104403 

001 

000 

104401 

000432 


005737 

001537 

012737 


132737 

001124 

005001 

013700 

104401 

136137 

001507 

104401 

010146 

104403 

002 

000 

104401 


012760 

010160 

005760 

032760 

001027 

032760 

001426 

012737 

022760 

001407 

022760 

001403 

104401 

000412 


001217 


177777 

006224 


001332 


006264 


.BYTE 

TYPE 

BR 

2$: INC 

BNE 
TYPE 
BR 

;;75S: .ASCI 2 

Hi: 

CLR 

MOVB 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

;;76$: .ASCIZ 


0 ;SUPRESS LEADING ZEROS 

.SCRLF ; CR-LF 

3$ ;GET NUMBER OF DRIVES 

#-1 .-FIRST TIME THRU HERE ? 

3$ ;N0 

.75$ ; ; TYPE ASCIZ STRING 

Us ;;GET OVER THE ASCIZ 

<CRLF>/TO TEST DRIVE / 

-(SP) .‘CLEAR WORD ON STACK 

XXDP.CSP) .-GET DRIVE ADDRESS 

.-TYPE DRIVE ADDRESS 

1 .-ONLY 1 CHARACTER 

0 ,-SUPRESS LEADING ZEROS 

.76$ ;;TYPE ASCIZ STRING 

3$ ;;GET OVER THE ASCIZ 

/. HALT PROGRAM, CLEAR LOC. 40 AND RESTART PROGRAM. /<CRLF> 


000042 

000377 001300 


000200 001243 


001276 

064504 

065004 001300 
001217 


; CHECK FOR AUTO MODE OR STANDALONE MODE 


8*42 

STANDALONE 

#377,$DEVM 


RUNNING IN AUTO MODE ? 

BR IF NO 

SET DEVICE MAP FOR ALL DRIVES 


.-PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
XSIZ: 


064676 

000040 

000010 

000012 

010000 


000010 


000010 


004000 000000 


064522 

020026 


006632 

000026 


024026 000026 
064527 


BITB 

«8IT7,$ENVM 

.-SIZING ALLOWED ? 

BNE 

12$ 

.-NO 

CLR 

R1 

.-START FROM DRIVE 0 

MOV 

I8ASE.R0 

.-LOAD THE BASE ADDRESS 

TYPE 

.SYSTAT 

.-TYPE 'UNIT STATUS:' 

BITB 

ATNT8L(R1),$DEVM ;IS DEVICE PRESENT IN MAP ? 1 

BEQ 

11$ 

;8R IF NO 

TYPE 

,$CRLF 

.-CR-LF 

MOV 

R1,-(SP) 

;;SAVE R1 FOR TYPEOUT 

TYPOS 


;;G0 TYPE— OCTAL ASCII 

.BYTE 

2 

.-.-TYPE 2 DIGIT (S> 

.BYTE 

0 

;; SUPPRESS LEADING ZEROS 

TYPE 

.BLNKS4 

.-TYPE 4 BLANKS 

MOV 

#CLR.RMCS2(R0) 

.-CLEAR NASS BUS 

MOV 

R1 ,RMCS2(R0) 

.-LOAD THE DRIVE ADDRESS 

TST 

RMDS(RO) 

.-ACCESS DRIVE REGISTER 

BIT 

#NED,RMCS2(R0) 

;IS DRIVE PRESENT ? 

BNE 

3$ 

;BR IF NO 

BIT 

fDVA.RMCSI (RO) 

,*IS DRIVE AVAILABLE ? 

BEQ 

4$ 

;BR IF NO 

MOV 

#$RM80.10$ 

.-ASSUME RM80 DEVICE 

CMP 

#20026,RMDT(R0) 

.-SINGLE PORT RM80 ? 

BEQ 

2$ 

;BR IF YES 

CMP 

#24026.RMDT(R0) 

,-DUAL PORT RM80 ? 

BEO 

2$ 

;8R IF YES 

TYPE 

.NOTRM 

.-DRIVE NOT AN RM80 

BR 

$ 

; CHECK NEXT DRIVE 
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B 6 


St a 0066 


98 006526 

99 006534 

100 006536 

101 

102 006540 

103 006544 

104 

105 006546 

106 006552 

107 006560 

108 

109 006562 

110 006566 

111 006574 

112 

113 006576 

114 006602 

115 006604 

116 006610 

117 006612 

118 006616 

119 

120 006620 

121 006624 

122 006630 

123 006632 

124 

125 006634 

126 006636 

127 006642 

128 

129 006644 

130 006650 


032760 

001412 

000417 

104401 

000402 

104401 

146137 

000425 

10440 
Hoi 37 
ovv/413 

005737 

001406 

123701 

001003 

104401 

000755 

104401 

104401 

104401 

000000 

005201 

020127 

003661 

104401 

000137 


010000 000012 2 $: 


064561 3$: 


064576 4$: 

065004 001300 5$: 


064615 6$: 

065004 001300 


00133? 7$: 

001332 

064544 


BIT #MOL.RMDS(RO> 

3EQ 6$ 

BR 7$ 

TYPE .NOTPRS 

BR §$ 

TYPE .NOTAVL 

BICB ATNTBL(R1>.$DEVM 

BR 11$ 

TYPE .UNTOFF 

BICB ATNTBL (R1 ) ,$DEVM 

BR 9$ 

TST XXDP 

8EQ 8$ 

CMP8 XXDP.R1 

BNE 8$ 

TYPE -LODEV 

8R 5 $ 


; I S MEOIUM ON LINE ? 
;BR IF NO 


DRIVE NOT PRESENT 
CHECK NEXT DRIVE 

DRIVE NOT AVAILABLE 

•CLEAR DEVICE FROM BIT MAP 
CHECK N&XT DRIVE 

DRIVE OFFLINE 

.•CLEAR DEVICE FROM BIT MAP 
PRINT DRIVE TYPE 

LOADED FROM RM80 ? 

NO 

IS THIS THE DRIVE ? 

BR IF NO 

DRIVE IS LOAD DEVICE 


064626 

8$: 

TYPE 

.UNTON 

.•DRIVE ONLINE 

064700 

9$: 

TYPE 

.BLNKS2 

.-TYPE 2 BLANKS 



TYPE 


.•PRINT DRIVE TYPE 


10$: 

.WORD 

0 

.•MESSAGE ADDRESS HERE 


11$: 

INC 

R1 

.•INCREMENT THE DRIVE ADDRESS 

000007 


CMP 

R1./Y7 

.-ALL DRIVES ARE CHECKED ? 



BLE 

1$ 

.•BRANCH IF NOT 

001217 

12$: 

TYPE 

,$CRLF 

.-CR-LF 

007332 


JMP 

CMNSTART 

.-JUMP TO COMMON START 


C 6 


SEQ 006 7 
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.S8TTL STANDALONE INPUT ROUTINES 


3 006654 

4 006654 

5 

6 006660 

7 006664 

8 
9 

10 

11 006666 

12 006672 

13 006674 

14 006700 

15 006706 

16 006710 

17 006714 

18 006720 

19 006722 

20 006726 

21 006732 

22 

23 

24 006734 

25 006734 

26 006740 

27 006742 

28 006746 

29 

30 

31 006752 

32 006752 

33 006756 
006762 

34 006764 

35 006770 

36 006772 

37 006776 

38 007000 

39 007006 

40 007010 

41 007014 

42 007016 

43 

44 007024 

45 007030 

46 007032 

47 007036 

48 007040 

49 007044 

50 007046 

51 007052 

52 007054 

53 007062 

54 007064 

55 007070 

56 007072 


004737 

0C5227 

001023 


104401 

104411 

012637 

123727 

001005 

104401 

104401 

000414 

104401 

104401 

000407 


005737 

001457 

005037 

104401 


104401 

013746 

104402 

104401 

104413 

012637 

001412 

022737 

101403 

104401 

000756 

013737 

104401 

005046 

113716 

104402 

104401 

104413 

012637 

001412 

022737 

101003 

104401 

000755 

113737 



STANDALONE: 



061330 

JSR 

PC.STKINT 

; INITIALIZE CONSOLE 

177777 

INC 

#-1 

.•FIRST TINE THRU HERE ? 


BNE 

2$ 

;BR IF NO 


;SEE IF OPERATOR WANTS HELP 

TEXT 

063550 

TYPE 

.NSHELP 

.-WANT HELP ? 


RDCHR 


;GET RESPONSE 

001176 

NOV 

(SP)+.STNP1 

.-SAVE AND ECHO RESPONSE 

001176 000131 

CNPB 

STNPl.f'Y 

; WAS IT A YES RESPONSE ? 


BNE 

IS 

;N0 

001176 

TYPE 

.STNP1 

.-TYPE 'Y' 

101716 

TYPE 

.HELP 

;YES - TYPE HELP TEXT 


BR 

is 


064672 

1$: TYPE 

«N 

.•TYPE ’N* 

001217 

TYPE 

.SCRLF 

; CR-LF 


BR 

is 



001330 

001330 

001217 


064161 

001276 

064700 

001176 

160000 001176 
064171 

001176 001276 

064233 

001272 

064700 

001176 

001000 001176 
064242 

001176 001272 


;SEE IF USER WANTS TO CHANGE UNIBUS ADDRESS 

$S: 


TST 

CHGADR 

.•CHANGE RH/RM BUS ADDRESS ? 

BEQ 

7$ 

;BR IF NO 

CLR 

CHGADR 

;N0 CHANGE NEXT TINE 

TYPE 

.SCRLF 

; CR-LF 


; DIALOGUE TO CHANGE THE UNIBUS 

k: 


TYPE 

NOV 

TYPOC 

TYPE 

RDOCT 

NOV 

BEQ 

CMP 

BLOS 

TYPE 

BR 

NOV 

TYPE 

CLR 

N0V8 

TYPOC 

TYPE 

RDOCT 

NOV 

BEQ 

CMP 

BHI 

TYPE 

BR 

N0V8 


-CNSL01 

SBASE.-(SP) 

.BLNKS2 

(SP) +.STNP1 

5$ 

#1 60000, STNP1 
4$ 

.CNSL02 

is 

STNP1 ,$BASE 

, CNSL03 
-(SP) 

$VECT1,(SP) 

.BLNKS2 

(SP)*,STNP1 

7$ 

flOOO.STNPl 

6 $ 

-CNSL04 

5 $ 

$TNP1,$VECT1 


ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 

;TYPE CURRENT BUS ADDRESS 

;;SAVt S8ASE FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 

;TYPE 2 BLANKS 
;6ET NEW BUS ADDRESS 
; CARRIAGE RETURN ? 

; YES-SKIP TO NEXT ENTRY 
;BASE ADDRESS IN I/O PAGE ? 

;YES 

.-TYPE WARNING NESSAGE 
;TRY AGAIN 

.•STORE NEW BUS ADDRESS 


GET CURRENT VECTOR ADDRESS 

TYPE 2 BLANKS 

GET NEW VECTOR ADDRESS 

CARRIAGE RETURN? 

YES-SKIP TO NEXT ENTRY 
VECTOR ADDRESS <1000? 
YES!! 

TYPE WARNING NESSAGE 
RETRY 

STORE NEW VECTOR ADDRESS 


L 
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SEQ 0068 


57 

58 

59 007100 

60 C07104 

61 007106 

62 007112 

63 007116 

64 OC 7122 

65 007126 

66 00^130 

67 OU7134 

68 007142 

69 007144 

70 007150 

71 007156 

72 

73 007162 

74 007170 

75 007172 

76 007176 

77 007204 

78 007206 

79 007214 

80 007216 

81 

82 00 7 220 

83 007222 

84 007226 

85 007234 

86 007236 

87 007242 

88 007246 

89 007254 

90 007256 

91 007264 

92 007266 

93 007272 

94 

95 007274 

96 007300 

97 007304 

98 007312 

99 007320 

100 007322 

101 007326 


005227 

001002 

104401 

104401 

005037 

104401 

104411 

012637 

C23727 

001007 

104401 

012737 

000137 

023727 

001436 

104401 

023727 

002430 

023727 

003427 

000423 

104411 

012637 

023727 

001432 

104401 

104401 

023727 

002404 

023727 

003403 

104401 

000711 

013701 

042701 

156137 

122737 

101337 

104401 

000137 


177777 

064276 

001217 

001300 

064462 

001176 

001176 

063534 

000377 

006364 


001176 

001176 


: DIALOGUE TO INPUT DEVICE NUMBERS 


000101 


001300 


001176 000015 


000060 


001176 000067 


001176 

001176 000015 

063545 

001176 

001176 000060 
001176 000067 
064440 


001176 

177770 

065004 001300 
G00377 001300 

001217 

0C6364 


INC 

BNE 

TYPE 

TYPE 

CLR 

TYPE 

RDCHR 

MOV 

CMP 

BNE 

TYPE 

MOV 

JMP 


RDCHR 

MOV 

CMP 

BEQ 

TYPE 

TYPE 

CMP 

BLT 

CMP 

BLE 

TYPE 

SR 

MOV 

BIC 

BISB 

CMPB 

BHI 

TYPE 

JMP 


#-1 

8$ 

.CNSL07 

.SCRLF 

SDEVM 

.MSDRVS 

<SP)+,$TMP1 
STMP1 ,#'A 
10 $ 

.ALL 

#377. SDEVM 
XSIZ 

STMP1 ,#CR 
12 $ 

,$TMP1 

iTMPi.#'o 

12$ 

STMP1 ,#'7 
13$ 

12 $ 


(SPI +.STMP1 
STMP1 ,#CR 
14$ 

.COMMA 
,$TMP1 
iTMPl ,#'0 
12 $ 

STMP1 .#'7 
13 $ 

.CNSL08 

$S 

STMP1.R1 

rC7.R1 

ATNTBL(RI). SDEVM 
#377, SDEVM 
11$ 

,$CRLF 

XSIZ 


FIRST TIME THRU ? 

BR IF NO 

TYPE INPUT INSTRUCTIONS 
CR-LF 

CLEAR DEVICE MAP 
TYPE 'DRIVE(S): 1 

GET RESPONSE 
IS INPUT "A" ? 

NO 

YES, TYPE ' , ALL m AND GO 

SET DEVICE NAP FOR ALL DRIVES 

AUTO SIZE. 

CARRIAGE RETURN ? 

YES 

ECHO RESPONSE 
NUMBER < 0 ? 

YES 

NUMBER > 7 ? 

NO 

ILLEGAL INPUT 


GET RESPONSE 
CARRIAGE RETURN ? 

YES 

TYPE \ * 

ECHO RESPONSE 
NUMBER < 0 ? 

YES 

NUMBER > 7 ? 

NO 

TYPE ” ?IL‘ A'. INPUT" 
RETRY 

R1 = DRIVE NUMBER 

;SET DEVICE IN MAP 

DONE ? 

NO 

CR-LF 

GO SIZE DEVICES 


( 

i 

1 
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SEQ 0069 


QUE FROM DEVICE MAP 


2 007332 



CHNSTAPT: 


3 007332 

104401 

06*636 


TYPE 

.DRIVES 

4 007336 

013700 

001300 


MOV 

SDEVM.RO 

5 007342 

001004 



BNE 

15 

6 007344 

104401 

063545 


TYPE 

.COMMA 

7 007350 

104401 

064665 


TYPE 

.NONE 

8 007354 

012701 

001470 

IS: 

MOV 

#TSTQUE*2,R1 

9 007360 

010137 

001466 


NOV 

R1.TSTQUE 

10 007364 

012702 

000001 


MOV 

J1.R2 

11 007370 

005003 



CLR 

R3 

12 007372 

030200 


2$: 

BIT 

R2.R0 

13 007374 

001413 



BEQ 

3$ 

14 007376 

104401 

063545 


TYPE 

.COMMA 

15 007402 

010311 



MOV 

R3.(R1) 

16 007404 

010346 



MOV 

R3,-(SP> 

007406 

104403 



TYPOS 



007410 

007411 

17 007412 

18 007420 

19 007424 

20 007426 

21 007430 

22 007432 

23 007434 

24 0074M 

25 007440 

26 

27 

28 007444 

29 007450 

30 007452 
007456 

007506 

31 007506 

32 007512 

33 007514 

34 007520 

35 007524 

36 

37 007524 

38 007526 

39 007532 

40 007534 

41 007540 

42 007542 

43 007546 

44 

45 007552 

46 007556 

47 007562 

48 007566 

49 007572 

50 007576 
007602 


001 

000 

116361 

062701 

006302 

105702 

001402 

005203 

000756 

005011 

104401 


004737 

000425 

104401 

000413 


005737 

001002 

000137 

000137 


000240 

105737 

001007 

005737 

001002 

000137 

000137 

105037 

005037 

005037 

005077 

004737 

012746 

012746 


065004 000001 
000002 


001217 


036234 

007460 


000042 

005434 

031372 


001300 

000042 

005434 

031372 

001116 

001206 

001326 

001512 

061330 

000240 

007610 


;$IZE 


;;65S 

64$: 


.BYTE 

.BYTE 

M0V8 

ADD 

ASL 

TSTB 

BEQ 

INC 

BR 

CLR 

TYPE 

FOR CLOCK 
JSR 
BR 
TYPE 
BR 

.ASCIZ 


ATNTBL(R3) ,1 (R1) 
#2.R 1 
R 2 
R2 
4$ 

R3 

2 $ 

(R1) 

.SCRLF 


TYPE 'DRIVE (S) TO BE TESTED' 

RO = DEVICE HAP 
BR IF DRIVES TO TES T 
TYPE ', ' 

TYPE 'NONE' 

R1 = ADDRESS OF FIRST ENTRY IN QUE 
INITIALIZE ENTRY POINTER 
R 2 = DEVICE POINTER 
R3 = DEVICE NUMBER 
IS THIS DEVICE IN MAP ? 

NO !! 

TYPE ', ' 

YES - ENTER DEVICE NUMBER IN QUE 
;SAVE R3 FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
; TYPE 1 DIGIT(S) 

; SUPPRESS LEADING ZEROS 
ENTER ATTENTION BIT IN QUE 
ADVANCE ENTRY POINTER 
ADVANCE DEVICE POINTER 
DONE ALL DEVICES ? 

YES 

ADVANCE DEVICE NUMBER 
ENTER NEXT DEVICE 
TERMINATE TEST QUE 
CR-LF 


PC.SIZCLK ;SEE IF CLOCK PRESENT 

6$ ;YES - CLOCK IS PRESENT 

.65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<CRLF>/NO 'L' OR ’p' CLOCK/ 


READY: 


NOP 

TSTB 

BNE 

TST 

BNE 

JMP 

JMP 


a#4 2 
5$ 

START 

$GET42 


$DEVM 
2 $ 
a*4 2 
1 $ 

START 

$GET42 

STSTNM 

STINES 

CTLFG 

MEDENB 

PC.STKINT 

0PR 5.-(SP) 

#64$. -(SP) 


ANY MONITOR PRESENT ? 

BR IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 


READY TO START TEST 
ANY DRIVES IN MAP ? 

BR IF YES 

ANY MONITOR PRESENT ? 

BR IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 

RESET TEST NUMBER 

INITIALIZE NUMBER OF ITERATIONS 

CLEAR CONTROL-C FLAG 

CLEAR MEDIA ENABLE 

INITIALIZE TTY 

;PUT NEW PS ON STACK 

;PUT NEU PC ON STACK 


CZRNEAO RH80 FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 12-1 
STANDALONE INPUT ROUTINES 


F 6 


seo 0070 


007606 

007610 

51 007610 

52 

53 

54 007616 

55 007622 
36 007630 

57 007636 

58 

59 

60 007644 

61 007650 

62 007654 

007660 

007662 

007663 

63 007664 

64 007666 

65 007670 

66 007672 

67 007674 


000002 

117737 


013700 

012760 

113760 

012737 


104401 

104401 

013746 

104403 

002 

000 

005004 

005304 

001376 

005304 

001376 


171652 001234 


001276 

000040 000010 
001234 000010 
006400 001334 


001217 

064476 

001234 


64$: 


RTI 

Move 


8TSTQUE. SUNIT 


; ; POP NEW PC AND PS 
.-LOAD DRIVE NUMBER 


.•CLEAR HASS8US CONTROLLER. SELECT DRIVE AND SET LAST TRACK ADDRESS 
MOV S6ASE.R0 ;R0 = UNIBUS ADDRESS 

NOV #CLR.RMCS2(R0) .-CLEAR NASS8US 

MOVB SUNIT, RHCS2(R0> ;SELECT DEVICE UNDER TEST 

MOV #TA8!TA4!TA1 .LSTRK ;SET LAST TRACK = 13. 

.-TYPE DRIVE NUMBER TO BE TESTED (SUNIT) 


TYPE 

.SCRLF 

; CR-LF 

TYPE 

.MSGDRV 

.-TYPE 'DRIVE* 

NOV 

SUNIT. -<SP> 

;;SAVE SUNIT FOR TYPE OUT 



.-.-TYPE DRIVE NUMBER 

TYPOS 


; ; GO TYPE— OCTAL ASCII 

.BYTE 

2 

;;TYPE 2 DIGIT(S) 

•BYTE 

0 

.‘.•SUPPRESS LEADING ZEROS 

CLR 

R4 

.•THESE TWO LOOPS ARE ADD 

DEC 

R4 

.-WAIT FOR TTY 

BNE 

.-2 


DEC 

R4 


BNE 

.-2 



TO 
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SEQ OOn 


;*TEST 1 CONTROLLER ACCESS TEST 


007676 

007676 

0C7700 

007702 

007706 

007712 

007716 

3 

A 007724 

5 007726 
007732 

6 007736 

7 007744 

8 

9 007752 

10 007756 

11 007762 

12 007766 

13 007772 

14 007776 

15 010002 

16 010006 

17 010012 

18 010016 

19 010022 

20 010026 
010032 

21 010036 

22 

23 010040 

24 010042 
010046 

25 010052 

26 010054 

27 010060 

28 010062 

29 010066 

30 010072 

31 010076 

32 

33 


000004 

000240 

012706 

013700 

013701 

012737 

005001 

013746 

013746 

012737 

012737 

110160 

010160 

016002 

010160 

016002 

016046 

010160 

016002 

012660 

010160 

016002 

012637 

012637 

000417 

022626 

012637 

012637 

104110 

005737 

001002 

000137 

005037 

000137 


010076 

010076 000004 
010100 000240 
010102 012706 


fSTI : 


001100 

001276 

001466 

000001 001226 


000004 

000006 

010040 000004 
000300 000006 


000002 
000002 
000004 
000004 
000010 
000010 
000010 
000010 
000022 
000022 
006 
004 


000006 

000004 


SCOPE 

NOP 

NOV 

NOV 

NOV 

NOV 


000042 

005424 

001300 

031372 


fSTACK.SP 
SBASE.RO 
TSTQUE.R1 
#1 .STESTN 

R1 

ERRVEC.-(SP) 
ERRVEC+2,-(SP> 
#1$, ERRVEC 
#PR6.FRRVEC+2 

R1 .RNCS1+1 (RO) 

RI.RNWC(RO) 

RNUC(RO) ,R2 

R1,RN8A(R0) 

RNBA(R0).R2 

RNCS2(R0).-(SP> 

R1.RNCS2IR0) 

RNCS2(R0) ,R2 

(SP> +,RNCS2(R0> 

RI.RNDB(RO) 

RND8(R0),R2 

<SP>+, ERRVEC+2 

(SP)+, ERRVEC 

3S 

(SP>+,<SP>+ 
<SP)+,ERftVEC+2 
<SP>+, ERRVEC 
110 

a#42 

2 $ 

START1 

SDEVN 

SGET42 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUNBER IN APT NAIL BOX 


;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 


;NOVE HI BYTE TO RNCS1 
;NOVE WORD COUNT REGISTER 

;NOVE BUS ADDRESS REGISTER 

;;PUSH RNCS2(R0) ON STACK 
;NOVE CONTROL STATUS REGISTER 

;;POP STACK INTO RNCS2(R0) 
;NOVE DATA BUFFER 

; ;POP STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 
;N0 BUS TINEOUT OCCURRED 

.•ADJUST STACK 

;;POP STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 

.•STAND ALONE NODE ? 

*N0> 1 

; YES-60 GET SBASE 
.■FUDGE NO DRIVES IN NAP 
.•RETURN CONTROL TO NONITOR 


.-•TEST 2 FORNAT ZEROS 

• -t************************************************************** 


TST2: 


010102 012706 001100 
010106 013700 001276 
010112 0137Q1 001466 
010116 012737 000002 001226 


36 010124 012737 000000 001444 


SCOPE 

NO P 

NOV 

NOV 

NOV 

NOV 


fSTACK.SP 

SBASE.RO 

TST0UE.R1 

#2,$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUNBER IN APT NAIL BOX 


.•SETUP PARANETERS FOR GENERATING DATA BUFFER 
NOV fO.RNOFO ;18 BIT FORNAT 
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SEQ 007Z 


37 010132 

38 010132 

39 01 OHO 
AO 010146 

010154 
010162 


012737 


41 

42 

43 

44 



010170 
010174 
010176 
010202 
010204 

45 010210 

46 010210 

47 010216 

48 010224 

49 010230 

50 

51 

52 010230 
010234 


012737 

012737 


004737 
00005 
104 <,01 
104000 
000137 

012737 

012737 

004737 


004737 

154130 


001057 

001000 

177376 

101716 

000062 


032406 

063446 

011010 

065116 

000001 

034640 

031456 


001446 

001420 

001414 

001416 

001412 


IS: 

NOV #559. .RNDCO 

NOV #TA2.RMDA0 

NOV #-258. .RNWCO 

NOV #8UF ONE . RNBAO 

NOV #WH.RNCS10 

.VERIFY THAT SECTOR IS NOT BAD 


001174 

001176 


2 S: 


3$: 


JSR 

BR 

TYPE 

ENT 

JNP 

NOV 

NOV 

JSR 


PC.BADSCT 
2S 
.SCTNSG 

23$ 

#ZEROS,$TMPO 
#1 ,$TNP1 
PC.GENBUF 


CYLINDER = 559. 

TRACK = 2. SECTOR = 0 
2 ♦ 256 UORDS <2'S CONP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


; CALL BAD SECTOR NODULE 

;G0 TO 2$ IF NO ERROR 

; TYPE BAD SECTOR NESSAGE 

.-ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 23$ IF ERROR 

;USE ALL ZEROS DATA PATTERN 

;G0 GENERATE DATA BUFFER 


.■PREPARE DEVICE 
JSR 
.WORD 


FOR DATA TRANSFER 
PC.TSTPRP 
154130 



010236 

000404 




BR 

4$ 


010240 

000240 




NOP 



010242 

104000 




ENT 

23$ 

53 

54 

55 

010244 

010250 

000137 

011010 


4$: 

JNP 






.■SETUP PARAMETERS AND EXECUTE 

56 

010250 

012737 

000004 

001412 


NOV 

#SEEK.RHCS10 

57 

010256 

012702 

001555 



NOV 

#PUTINX,R2 

#RMDA.(R2)+ 

58 

010262 

112722 

000006 



N0V8 

59 

010266 

112722 

000034 



N0V8 

#RNDC.(R2>+ 

60 

010272 

112722 

000032 



N0V8 

#RM0F.(R2)+ 

#RNCS1,(R2)+ 

61 

010276 

112722 




N0V8 

62 

63 

64 

010302 

112722 

000200 



NOVO 

#200. <R2>* 

010306 

004737 

036004 



JSR 

PC, PUT 


010312 

000404 




BR 

5$ 


010314 

000240 




NOP 



010316 

104000 




ENT 

23$ 


010320 

000137 

011010 



JNP 

65 

010324 




5$: 


#2.R2 

PC.STINER 

66 

67 

010324 

010330 

m 

000002 

036520 


6$: 

NOV 

JSR 

68 

010334 

032777 

000200 

171160 

7$: 

BIT 

#8IT7,BCLKADR 

69 

010342 

001774 




BEO 

7$ 

70 

010344 

005302 




DEC 

R2 

71 

72 

010346 

001370 




BNE 

6$ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE 8 VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUNE NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ‘‘SKV' OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

60 TO 23$ IF ERROR 


.•CHANGE CONNAND TO SEEK 
.■WRITE REGISTER INDEX TABLE 


60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 23$ IF ERROR 

DO 2 CLOCK CYCLES 
START CLOCK TINER 
TINER DONE?? 

NO' 1 

dec number of cycles 

CONTINUE IF NOT DONE 
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SEQ 0073 


73 

"»/ 

010350 

012737 

000005 001412 


MOV 

#SEEK!GO,RJ 

t H 

75 

010356 

004737 

036004 


JSR 

PC. PUT 


010362 

000404 



BR 

8$ 


010364 

000240 



NOP 



010366 

104000 



EMT 

23$ 


010370 

000137 

011010 

8$: 

JMP 

76 

010374 





77 







78 




.•SETUP 

FOR READING STATUS i 

79 

010374 

004737 

035450 


JSR 

PC.GETSTS 

80 

81 

32 

83 

010400 

010404 

004737 

036356 

9$: 

JSR 

PC.TIMOUT 




;G0 READ SEEK 

STATUS 

84 

010404 

004737 

035534 


JSR 

PC.GET 

ioi 

010410 

000404 



BR 


010412 

000240 



NOP 



010414 

104000 



EMT 

23$ 


010416 

C00137 

011010 


JMP 

85 

010422 



10$: 




.‘EXECUTE SEEK COMMAND 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 8$ IF NO ERROR 

.‘RETURN HERE IF ERROR 

.•ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 23$ IF ERROR 


.SETUP FOR STATUS 
.‘WAIT FOR SEEK TO COMPLETE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 23$ IF ERROR 


86 

87 

88 010422 
010426 
010430 
010432 
010434 
010436 

89 010442 

90 

91 

92 010442 

93 010450 

94 010454 

95 010460 

% 010464 

97 010470 

98 

99 010474 
010500 
010502 
010504 
010506 

100 010512 

101 

102 

103 01051? 

104 

105 010516 
010522 
010524 
010526 
010530 

106 010534 

107 

108 


004737 

000405 

000240 

104000 

004736 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


044174 


011010 


000063 001412 

001560 

000002 

000004 

000000 

000200 

036004 


011010 


.‘VERIFY THE RESULTS OF THE SEEK COMMAND 


11 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.SEKSTS 

ni 


pc.b(sp)* 

23i 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 23$ IF ERROR 


.SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 


12$. 


MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 

BR 

NOP 

EMT 

JMP 


#WH!G0.RMCS10 

0PUTINX+3.R2 

#RMWC.(R2)+ 

#RMBA.(R2>+ 

#RMCS1,(R2)+ 

#200,(R2)+ 

PC .PUT 

12i 


23$ 


.‘WRITE HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 23$ IF ERROR 


004737 036356 

004737 035534 
000404 
000240 
104000 

000137 011010 


.WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT .‘WAIT FOR COMMAND TO COMPLETE 


13 $: 


JSR 

BR 

NOP 

EMT 

JMP 


PC.GET 

13i 


23$ 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 13$ IF NO ERROR 

.‘RETURN HERE IF ERROR 

.-ERROR f DEFINED BY GET SUBROUTINE 

.-GO TO 23$ IF ERROR 


.'VERIFY RESULTS OF WRITE COMMAND 


J 6 
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109 010534 
010540 
010542 
010544 
010546 
010550 

110 010554 

111 010554 
010560 
010562 
010564 
010546 
010570 

112 010574 

113 010574 
010600 
010602 
010604 
010606 
010610 

114 010614 

115 

116 

117 010614 

118 010622 

119 

120 010630 
010634 
010636 
010640 
010642 

121 010646 

122 

123 

124 010646 

125 

126 010652 
010656 
010660 
010662 
010664 

127 010670 

128 

129 

130 010670 
010674 
010676 
010700 
010702 
010704 

13* 010710 

132 010710 
010714 
010716 
010720 
010722 
010724 


00473? 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


036552 

011010 

051612 

0*1010 

037404 

011010 


14$: 


15$: 


16 $: 


JSR 

BR 

NOP 

ENT 

JSR 

JNP 

JSR 

BR 

NOP 

ENT 

JSR 

JNP 

JSR 

BR 

NOP 

ENT 

JSR 

JNP 


PC .PR I ERR 
14i 


PC,3(SP)+ 

23i 

PC.DTASTS 

15i 


PC.B(SP)* 

23i 

PC.SECERR 

i6i 


PC.B(SP)* 

23§ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 23$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 23$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 23$ IF ERROR 


012737 000073 001412 
012737 102722 001416 


000404 

000240 

104000 


;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

NOV IRH.'GO.RNCSIO ;READ HEADER 8 DATA CONNAND 

NOV fBUFTWO.RNBAO .‘CHANGE BUS ADDRESS 


000404 

000240 

104000 


000405 

000240 

104000 

004736 


000405 

000240 

104000 

004736 


036004 


JSR 

BR 

NOP 

ENT 

011010 

17$: 

JNP 


.•WAIT 

FOR RE 

036356 


JSR 

035534 


JSR 

BR 

NOP 

ENT 

011010 

18$: 

JNP 


.•VERIFY THE 

036552 


JSR 

BR 

NOP 

ENT 

JSR 

011010 

19$: 

JNP 

051612 


JSR 

BR 

NOP 

ENT 

JSR 

011010 


JNP 


PC.PUT 

17i 


23$ 


PC.TINOUT 

PC.GET 

I8i 


23$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 23$ IF ERROR 


;WAIT FOR READ TO CONPLE'E 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 18$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 23$ IF ERROR 


RESULTS of read operation 


PC.PRIERR 
19§ 


pc.b(sp)* 

23i 

PC.DTASTS 

20i 


pc.b(sp)* 

23i 


GO CHECK FOR PRIMARY ERRORS 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 23$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 23$ IF ERROR 
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SEQ 0075 


133 010730 

134 010730 
010734 
010736 
010740 
010742 
010744 

135 010750 

136 

137 

138 010750 
010754 
010756 
010760 
010762 
010764 

139 010766 

140 010766 

141 010774 

142 010776 

143 011004 

144 011010 


147 

148 

149 011036 

150 011044 

151 011052 

152 011060 

153 011066 

154 011074 


004737 037404 

000405 

000240 

104000 

004736 

000137 011010 


004737 035106 

101716 

102722 

000402 

000240 

104000 

032737 010000 001444 
001005 

012737 010000 001444 
000137 010132 


.-VERIFY DATA 
JSR 
.WORD 
.WORD 
BR 
NOP 
EMT 


PC.SECERR 

2li 


PC.i(SP)* 

23i 


PC.CMPBUF 
BUFONE 
BUF TWO 
22 $ 


#FMT16,RM0F0 

23$ 

#FMT16,RM0F0 

1 $ 


60 CHECK FOR SECONDARY ERRORS 

60 TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 23$ IF ERROR 


60 COMPARE WRITE. READ DATA BUFFERS 

STARTIN6 ADDRESS OF WRITE BUFFER 

STARTIN6 ADDRESS OF READ BUFFER 

60 TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPBUF SUBROUTINE 

TEST 16 BIT MODE YET ? 

YES 

SET 16 BIT MODE AND 
TEST A6AIN. 


■ *************************************************************** 





;*TEST 

3 

ZERO FILL TEST 


011010 

011010 

000004 


# * * 
TST3: 

SCOPE 


.-SCOPE CALL 

011012 

000240 



NOP 


.-START OF TEST 

011014 

012706 

001100 


MOV 

fSTACK.SP 

.-INITIALIZE STACK POINTER 

011020 

013700 

001276 


MOV 

S8ASE.R0 

;R0 = UNIBUS ADDRESS 

011024 

013701 

001466 


MOV 

TSTQUE.R1 

;(R1> - DEVICE BEING TESTED 

011030 

012737 

000003 001226 


MOV 

#3,$TESTN 

;;SET TEST NUMBER IN APT MAIL BOX 


012737 

012737 

012737 

012737 

012737 

012737 


001057 

001000 

010000 

177376 

101716 

000062 


001446 

001420 

001444 

001414 

001416 

001412 


.-SETUP PARAMETERS FOR GENERATING DATA BUFFER 


#559.,R«DC0 
#TA2.RMDA0 
#FMT16,RN0F0 
#-258. .RMWCO 
#8Uf ONE , RHBAO 
#WH,RMCS10 


CYLINDER = 559. 

TRACK = 2. SECTOR = 0 
16 BIT FORMAT 
2 ♦ 256 WORDS (2’S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


156 




; VERIFY THAT 

SECTOR IS NOT BAD 


011102 

004737 

032406 


JSR 

PC.BADSCT 

.-CALL BAD SECTOR NODULE 

011106 

000405 



BR 

1$ 

;G0 TO 1$ IF NO ERROR 

011110 

104401 

063446 


TYPE 

.SCTMSG 

.-TYPE BAD SECTOR MESSAGE 

011114 

104000 



EMT 


.-ERROR # DEFINED BY BADSCT SUBROUTINE 

011116 

000137 

011644 


JMP 

18$ 

;G0 TO 18$ IF ERROR 

157 011122 




1$: 



158 011122 

012737 

065116 

001174 

MOV 

#ZEROS.$TMPO 

.-USE ALL ZEROS DATA PATTERN 

159 011130 

012737 

000001 

001176 

MOV 

#1 ,$TMP1 


160 011136 

004737 

034640 


JSR 

PC.GENBUF 

.-GO GENERATE DATA BUFFER i 

161 01.142 




2$: 



lo< 

163 




.-PREPARE DEVI 

.'E FOR DATA TRANSFER 

164 011142 

004737 

031456 


JSR 

PC.TSTPRP 

.-PREPARE DEVICE FOR TEST 

011146 

154130 



.WORD 

15*130 

.-TASK DESCRIPTOR AS FOLLOWS: 


L 


L 6 
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SEQ 0076 



011150 

OOOAOA 


B R 

3S 


011152 

0002A0 


NOP 



01115A 

10A0C0 


EMT 

1SS 


011156 

000137 

0116AA 

JMP 

165 

166 
167 

011162 



3$: 





.•SETUP PARAMETERS AND EXECUTE SI 

168 

011162 

012737 

000005 001 A 1 , 2 

MOV 

#SEEK!G0,RMCS10 

169 

011170 

012702 

001555 

MOV 

#PUTINX,R2 

170 

01117A 

112722 

000006 

MOVB 

#RMDA,(R2)+ 

171 

011200 

112722 

00003A 

MOVB 

#RMDC.(R2)+ 

172 

01120A 

112722 

000032 

MOVB 

#RMOF , (R2)+ 
#RMCS1,(R2H 

173 

011210 

112722 

000000 

MOVB 

17A 

01 1 21 A 

112722 

000200 

MOVB 

#200,<R2)+ 

175 






176 

011220 

00A737 

03600A 

JSR 

PC, PUT 

01122A 

OCOAOA 


BR 

AS 


011226 

0002A0 


NO P 



011230 

10A000 


EMT 

18S 


011232 

000137 

0116AA 

JMP 


SELECT DEVICE 8 VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI** OR ‘'PIP” IS SET 

VERIFY RECALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 18S IF ERROR 


.•WRITE REGISTER INDEX TABLE 


177 011236 

178 


AS: 


180 

011236 

00A737 

035A50 

JSR 

PC.GETSTS 

181 

0112A2 

00A737 

036356 

JSR 

PC.TIMOUT 

182 

0112A6 



5S: 


183 






18A 




.GO READ SEEK 

STATUS 

185 

0112A6 

00A737 

03553A 

JSR 

PC, GET 

011252 

OOOAOA 


BR 

6S 


01125A 

0002A0 


NOP 



011256 

10A000 


EMT 

18S 


011260 

000137 

0116AA 

JMP 

186 

01126A 



6S: 



187 


189 

01126A 

00A737 

0AA17A 



JSR 

PC, SEKSTS 


011270 

OOOA05 




BR 

7S 


01127? 

0002 AO 




NOP 



011274. 

10A000 




EMT 

PC,9(SP)+ 


01(276 

00A736 




JSR 


011300 

000137 

0116AA 



JMP 

18S 

190 

01130A 




7S: 



191 








192 





.•SETUP AND EXECUTE WRITE HEADER 

193 

01130A 

012737 

177776 

001414 


MOV 

#-2,RMWC0 

19A 

011312 

012737 

000063 

001A12 


MOV 

#WH!G0,RMCS1O 

195 

011320 

012702 

001560 



MOV 

(TPUTINX+3.R2 

#RMWC,(R2)+ 

196 

01132A 

112722 

000002 



MOVB 

197 

011330 

112722 

OOOOOA 



MOVB 

#RMBA, (R2) + 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO AS IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR 0 DEFINED BY PUT SUBROUTINE 

;G0 TO 18S IF ERROR 


.•SETUP FOR STATUS 

.-WAIT FOR SEEK TO COMPLETE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 18S IF ERROR 


.•VERIFY THE RESULTS OF THE SEEK COMMAND 

6Q VERJFy results OF SEEK OPERATION 

GO TO 7S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR 0 DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18S IF ERROR 


FORMAT PARTIAL SECTOR 
WRITE HEADER AND DATA 
EXTEND REGISTER INDEX TABLE 


6 
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198 

011334 

112722 

000000 

MOVB 

#RMCS1.(R2>* 

199 

200 
201 

011340 

112722 

000200 

MOVB 

#200, <R2)* 

011344 

004737 

036004 

JSR 

PC. PUT 

011350 

000404 


BR 

8$ 


011352 

000240 


NOP 



011354 

104000 


EMT 

18$ 


011356 

000137 

011644 

JMP 


202 011362 

203 

204 

205 011362 

206 

207 011366 
011372 
011374 
011376 
011400 

208 011404 

209 

210 

211 011404 
011410 
011412 
011414 
011416 
011420 

212 011424 

213 011424 
011430 
011432 
011434 
011436 
011440 

214 011444 

215 011444 
011450 
011452 
011454 
011456 
011460 

216 011464 

217 

218 


8 $: 


004737 

004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


036356 

JSR 

PC.TIMOUT 

035534 

JSR 

PC, GET 


BR 

9$ 


NOP 



EMT 


011644 

JMP 

18$ 


9$: 



.•VERIFY RESULTS 

OF WRITE ( 

036552 

JSR 

PC. PRIERR 

BR 

10$ 


NOP 



EMT 



JSR 

PC.BISP,* 

011644 

JMP 

18$ 

10$: 


051612 

JSR 

PC.DTASTS 

ni 

BR 


NOP 



EMT 



JSR 

pc.acsPH 

011644 

JMP 

18$ 


11$: 


037404 

JSR 

PC.SECERR 

1 2i 


BR 


NOP 



EMT 



JSR 

pc.acsp)* 

011644 

JMP 

18$ 


12 $: 


219 

011464 

012737 

177376 

001414 

MOV 

#-258. .RMWCO 

220 

011472 

012737 

000073 

001412 

MOV 

#rh;go,rmcsio 

221 

222 

223 

011500 

012737 

102722 

001416 

MOV 

#8UFTW0,RMBA0 

011506 

004737 

036004 


JSR 

PC .PUT 

13$ 

011512 

000404 



BR 


011514 

000240 



NOP 



011516 

104000 



EMT 

18$ 


011520 

000137 

011644 


JMP 

224 

225 

226 

011524 




13$: 






.-WAIT FOR READ 

TO COMPLETE AND 

227 

011524 

004737 

036356 


JSR 

PC.TIMOUT 


60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 18$ IF ERROR 


;WAIT FOR COMMAND TO COMPLETE 

60 READ REGISTER(S) WITH AET SUBROUTINE 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


60 CHECK FOR PRIMARY ERRORS 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 

60 VERIFY RESULTS OF DATA TRANSFER 

60 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 


;2 ♦ 256 WORDS (2'S COMP) 

;READ HEADER 8 DATA COMMAND 
; CHANGE BUS ADDRESS 

60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 18$ IF ERROR 


;WAIT FOR READ TO COMPLETE 
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N 6 


SEQ 0078 


228 

229 011530 
011534 
011536 
011540 
011542 

230 011546 

231 

232 

233 011546 
011552 
011554 
011556 
011360 
011562 

234 011566 

235 011566 
011572 
011574 
011576 
011600 
011602 

236 011606 

237 011606 
011612 
011614 
011616 
011620 
011622 

238 011626 

239 

240 

241 011626 
011632 
011634 
011636 
011640 
011642 

242 011644 

243 

244 


011644 

011644 

>11646 

11650 

>11654 

11660 

>11664 



004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


004737 

101716 

102722 

000402 

000240 

104000 


035534 

JSR 

PC. GET 

14i 

;G0 READ REGISTER (S) WITH GET SUBROUTINE 

BR 

;G0 rO 14$ IF NO ERROR 


NOP 


.‘RETURN HERE IF ERROR 


EM T 


.'ERROR 0 DEFINED BY GET SUBROUTINE 

011644 

JMP 

18$ 

;G0 TO 18$ IF ERROR 


036552 

011644 

051612 

011644 

037404 

011644 

035106 


14S: 

.•VERIFY THE 
JSR 
BR 
NOP 
ENT 
JSR 
J HP 


15 $: 


16$: 


17$: 


JSR 

BR 

NOP 

EHT 

JSR 

JNP 

JSR 

BR 

NOP 

EHT 

JSR 

JHP 


RESULTS OF READ 
PC.PRIERR 
15i 


PC.B(SP)* 
i ei 

PC.DTASTS 

16i 


pc.a(SP)* 

18 $ 

PC.SECERR 

I7i 


pc,a(sp>* 

18$ 


.'VERIFY DATA 
JSR 
.yORD 
.WORD 
BR 
NOP 
EHT 


PC.CHPBUF 
BUFONE 
8UF TWO 


18 $: 


OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR 0 DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR HORE ERROR CHECKS 
GO TO 18$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR HORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR HORE ERROR CHECKS 

GO TO 18$ IF ERROR 


;G0 COMPARE WRITE. READ DATA BUFFERS 

.'STARTING ADDRESS OF WRITE BUFFER 

.'STARTIN6 ADDRESS OF READ BUFFER 

;G0 TO 18$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.•ERROR 0 DEFINED BY CHPBUF SUBROUTINE 


•TEST 4 


FORMAT CHECK ZEROS 



TST4: 


001226 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


#STACK.SP 

S8ASE.R0 

TSTGUt.Rl 

#4.$TESTN 


SCOPE CALL 
START OF TES? 

INITIALIZE STACK POINTER 

RO - UNIBUS ADDRESS 

(R1> = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT NAIL BOX 


m 

127 7 

m 



.'SETUP PARAMETERS FOR GENERATING DATA BUFFER 


101716 


MOV #55v.,RHDCO 

NOV #TA2.fef*A0 

NOV #FMTi6,RM0F0 

NOV #-258. .RNWCO 

NOV I8UF0NE.RMBA0 


CYLINDER = 559. 

TRACK = 2, SECTOR * 0 
16 BIT FORMAT 
2 ♦ 256 WORDS <2* S COMP) 
DATA BUFFER ADDRESS 



B 7 
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SEQ 0C79 


252 

253 

254 

011730 

012737 

000062 

001412 

MOV 

#WH,RMCS10 

;1 





.'VERIFY THAT SECTOR IS NOT BAD 


011736 

004737 

032406 


JSR 

PC .BADSCT 

# 


011742 

000405 



BR 

1$ 

• 


011744 

104401 

063446 


TYPE 

.SCTMSG 

# 


011750 

104000 



EMT 

18$ 

# 


011752 

000137 

012434 


JMP 

» 

255 

011756 




1$: 

#ZEROS,$TMPO 


256 

011756 

012737 

065116 

001174 

MOV 

0 

257 

011764 

012737 

000001 

001176 

MOV 

#1 ,$TMP1 


258 

011772 

004737 

034640 


JSR 

PC.GENBUF 

• 

0 

259 

260 
261 

011776 




2$: 







.PREPARE DEVICE 

FOR DATA TRANSFER 

262 

011776 

004737 

031456 


JSR 

PC. TSTPRP 

;i 

012002 

154130 



.WORD 

154130 

0 


012004 

012006 

012010 

012012 

263 012016 

264 

265 

266 012016 

267 012024 

268 012030 

269 012034 

270 012040 

271 012044 

272 012050 

273 

274 012054 
012060 
012062 
012064 
012066 

275 012072 

276 

277 

278 012072 

279 012076 

280 012102 

281 

282 

283 012102 
012106 
012110 
012112 
012114 


000404 

000240 

104000 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 

004737 


004737 

000404 

000240 

104000 

000137 


012434 


000005 001412 

001555 

000006 

000034 

000032 

000000 

000200 

036004 


012434 


035450 

056356 


3$: 


Bh 

NOP 

EMT 

JMP 


3S 


18 S 


.'WRITE HEADER AND DATA 


# DEFINED BY BADSCT SUBROUTINE 


;USE All ZEROS DATA PATTERN 
;G0 GENERATE DATA BUFFER 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •‘SKI" OR ‘T’lP*' IS SET 

VERIFY RECALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE :F ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 18$ IF ERROR 


.•SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
MOV #SEEK!G0.RMCS10 .'CHANGE COMMAND TO SEEK 

MOV 0PUTINX.R2 .'WRITE REGISTER INDEX TABLE 

HOVB #RMDA,(R2>+ 

M0V8 #RMDC,(R2>* 

HOVB #RM0F.(R2>* 

MOVB #RMCS1.(R2)+ 

HOVB #200. (R2H 


JSR 

PC. PUT 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

BR 

4$ 

;G0 TO 4$ IF NO ERROR 

NOP 


.■RETURN HERE IF ERROR 

EMT 


.•ERROR # DEFINED BY PUT SUBROUTINE 

JMP 

18$ 

;G0 TO 18$ IF ERROR 


4$: 

.'SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS .'SETUP FOR STATUS 

JSR PC.TIMOUT .'WAIT FOR SEEK TO COMPLETE 

5$: 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



;G0 READ SEEK 

STATUS 

035534 

JSR 

PC. GET 


BR 

6$ 


NOP 



EMT 


012434 

JMP 

18$ 
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C 7 


SEO 0080 


28A 012120 

285 

286 

287 012120 
012124 
012126 
012130 
012132 
012134 

288 01 21 AO 

289 

290 

291 0121A0 

292 012146 

293 012.52 

29A 012156 

295 012162 

296 012166 

297 

298 012172 
012176 
012200 
012202 
01220A 

299 012210 

300 

301 

302 012210 

303 

30A 01 221 A 
012220 
012222 
01222A 
012226 

305 012232 

306 

307 

308 012232 
012236 
0122A0 
0122A2 
0122AA 
0122A6 

309 012252 

310 012252 
012256 
012260 
012262 
01226A 
012266 

311 012272 

312 012272 
012276 
012300 
012302 
01230A 
012306 


00A737 

000A05 

0002A0 

lOAOOO 

00A736 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

00A737 

OOOAOA 

0O924O 

104000 

000137 


044174 


012434 


000063 001412 
001560 
000002 
000004 
OOCOOO 
000200 

036004 


012434 


6 $: 

.•VERIFY THE RESULTS OF THE SEEK COMMAND 

;6C vpRIFy RESULTS of SEEK OPERATION 

GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
;G0 TO 18S IF ERROR 
7$: 


.‘WRITE HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


036552 

012434 

051612 

012434 

037404 

012434 


8 $: 


JSR 

PC. SEKSTS 

BR 

7$ 

NOP 

EMT 

JSR 

PC,a(SP)+ 

JMP 

18$ 

AND EXECUTE WRITE HEADI 

MOV 

#WH.'G0,RMCS10 

MOV 

#PUTINX+3.R2 

#RMWC.(R2)+ 

MOVB 

MOVB 

#RMBA. (R2)+ 

MOVB 

#RMCS1.(R2>+ 

MOVB 

#200. (R 2 )* 

JSR 

PC. PUT 

BR 

8$ 

NOP 

EMT 

JMP 

18$ 


004737 

036356 

JSR 

PC.TIMOUT 

004737 

035534 

JSR 

PC. GET 

000404 


BR 

9$ 

000240 


NOP 


104000 


EMT 

18$ 

000137 

012434 

JMP 


9$: 

.•VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 


10 $: 


11 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


OF WRITE COMMAND 
PC.PRIERR 
10$ 


PC.BISP)* 

18i 

PC.DTASTS 

ni 


pc.bisph 

isi 

PC.SECERR 

12$ 


pc.a(sp>* 

I8i 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 


.-WAIT FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

60 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



D 7 


SEQ 0081 
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313 012312 
3K 


12 $: 


316 

317 

318 

012312 

012737 

000053 001412 

NOV 

012320 

004737 

036004 

JSR 


012324 

000404 


BR 


012326 

000240 


NOP 


012330 

104000 


EMT 


012332 

000137 

012434 

JMP 

319 

012336 



13$: 

320 




.•WAIT FOR J 

321 




3 22 

323 

324 

012336 

004737 

036356 

JSR 

012342 

004737 

035534 

JSR 


012346 

000404 


BR 


012350 

000240 


NOP 


012352 

104000 


EMT 


012354 

000137 

012434 

JMP 

325 

012360 



14$: 

326 





327 




-•VERIFY THE 

328 

012360 

004737 

036552 

JSR 


012364 
012366 
012370 
012372 
012374 

329 012400 

330 012400 
012404 
012406 
012410 
012412 
012414 

331 012420 

332 012420 
012424 
Cl 2426 
012430 
012432 

333 012434 

334 

335 012434 

336 

337 


000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000403 

000240 

104000 

004736 


012434 

051612 

012434 

037404 


#WCH!G0.RMCS10 

PC-PUT 

13 * 


18$ 


PC.TIMOUT 

PC.GET 

14* 


18 $ 


-'WRITE CHECK COMMAND 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 


-•WAIT FOR READ TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


15$: 


16$: 


BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 


RESULTS OF WRITE 
PC.PRIERR 
15* 


PC-i(SP)* 

18 $ 

PC-DTASTS 

16 $ 


PC-i(SP)* 

18* 

P^SECERR 

PC-i(SP)+ 


CHECK OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 16$ IF NO ERR0.1 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 


338 


012434 

012434 

000004 

TST5: 

SCOPE 


012436 

012440 

000240 

012706 

001100 

NOP 

MOV 

#STACK,SP 

012444 

013700 

001276 

MOV 

S6ASE-R0 

TST0UE-R1 

012450 

013701 

001466 

MOV 

012454 

012737 

000005 001226 

MOV 

#5,$TESTN 


17 $: 

18 $: 

• • *************************************************************** 
•West 5 format check zeros w/ wce error 


-•SCOPE CALL 

-•START OF TEST 

-•INITIALIZE STACK POINTER 

;R0 = UNIBUS ADDRESS 

; CR1) - DEVICE BEING TESTED 

-•-•SET TEST NUMBER IN APT MAIL BOX 



E 7 


SEQ 0082 


CZRNEAO PM80 FCTNL PT2 MACRO V04.00 28- JAN-82 16:38:23 PAGE 13-11 
T5 FORMAT CHECK ZEROS W/ WCE ERROR 


339 

340 012462 

341 01247C 

342 012476 

343 012504 

344 012512 

345 012520 

346 

347 

012526 

012532 

012534 

012540 

012542 

348 012546 

349 012546 

350 012554 

351 012562 

352 012566 

353 

354 

355 012566 
012572 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


004737 

154130 


012574 

012576 

012600 

012602 

356 012606 

357 

358 

359 012606 

360 012614 

361 012620 

362 012624 

363 012630 

364 012634 

565 012640 

366 

367 012644 
012650 
012652 
012654 
012656 

368 012662 

369 

370 

371 012662 

372 012666 

373 012672 

374 


001057 

001000 

010000 

177376 

101716 

000062 


032406 

063446 

013374 

065116 

000001 

034640 

031456 


000404 

000240 

104000 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 

004737 


001446 

001420 

001444 

001414 

001416 

001412 


.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 


001174 

001176 


MOV #559. .RMDCO 

MOV #TA2.RMDA0 

MOV #FMT16.RM0F0 

MOV #-2 58..RMWC0 

MOV #8UF0NE,RMBA0 
MOV #WH.RMCS10 

.VERIFY THAT SECTOR IS NOT BAD 
JSR PC.8ADSCT 

BR 1$ 

TYPE .SCTMSG 

EMT 

JMP 20$ 

NOV fZEROS.STMPO 

MOV #1 ,$TNP1 

JSR PC.GENBUF 


1 $: 


2 $: 


CYLINDER = 559. 

TRACK = 2, SECTOR * 0 
16 BIT FORMAT 
2 ♦ 256 WORDS (2'S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


.-CALL BAD SECTOR MODULE 

;60 TO 1$ IF NO ERROR 

.TYPE BAD SECTOR MESSAGE 

.•ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 20$ IF ERROR 

;USE ALL ONES DATA PATTERN 

;G0 GENERATE DATA BUFFER 


.•PREPARE DEVICE FOR DATA TRANSFER 


JSR 
.WORD 


PC.TSTPRP 
154130 


013374 


000005 001412 

001555 

000006 

000034 

000032 

000000 

000200 

036004 


3$: 


BR 

NOP 

EMT 

JMP 


3$ 


20 $ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE ft VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR ’VIP" IS SET 

VERIFY RECALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 20$ IF ERROR 


.•SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 


013374 


035450 

036356 


4$: 


MOV 

MOV 

H0V8 

N0V8 

MOVE 

M0V8 

M0V8 

JSR 

BR 

NOP 

EMT 

JMP 


#SEEK!G0,RMCS10 .CHANGE COMMAND TO SEEK 


fPUTINX. R2 
#RMDA,(R2)+ 
#RMDC. (R2)+ 
#RM0F.(R2>+ 
#RMCS1.(R2>+ 
#200. <R2>* 

PC. PUT 
4$ 


20 $ 


.•WRITE REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 20$ IF ERROR 


.•SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.6ETSTS .SETUP FOR STATUS 

JSR PC.TIMOUT .-WAIT FOR SEEK TO COMPLETE 

5 $: 
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F 7 


SEO 0083 


375 

376 012672 
012676 
012700 
012702 
012704 

377 012710 

378 

379 

380 012710 
012714 
012716 
012720 
012722 
012724 

381 012730 

382 

383 

384 012730 

385 012736 

386 012742 

387 012746 

388 012752 

389 012756 

390 

391 012762 
012766 
012770 
012772 
012774 

392 013000 

393 

394 

395 013000 

396 

397 013004 
013010 
013012 
013014 
013016 

398 013022 

399 

400 

401 013022 
013026 
013030 
013032 
013034 
013036 

402 013042 

403 013042 
013046 
013050 
013052 
013054 
013056 

404 013062 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


035534 

013374 

044174 

013374 


000063 001412 
001560 
000002 
000004 
000000 
000200 


000404 

000240 

104000 


0OO4O5 

000240 

104000 

004736 


000405 

000240 

104000 

004736 


;G0 READ SEEK STATUS 


6 $: 


JSR 

BA 

NOP 

ENT 

JNP 


PC, GET 

6 $ 


20S 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 20S IF ERROR 


.-VERIFY THE RESULTS OF THE SEEK COMMAND 


7$: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.SEKSTS 

7$ 


PC.B(SP)* 

20i 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7 % IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20S IF ERROR 


.-SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 


MOV #UH.'60,RMCS10 

MOV #PUTINX+3.R2 

MOVE #RMWC, (R2/+ 

H0V8 #RMBA f (R2>+ 

MOVE #RMCS1,(R2)+ 

MOVB #200,(R2)+ 


; WRITE HEADER AND DATA 
.-EXTEND REGISTER INDEX TABLE 


036004 

JSR 

PC. PUT 

BR 

8$ 


NOP 



EMT 

20$ ; 

013374 

JMP 

8$: 


;WAIT FOR WRITE 

UJ 
— J 

1 

u 

o 

u 

036356 

JSR 

PC.TIMOUT 

035534 

JSR 

PC. GET 


BR 

9$ 


NOP 

• 

* 


EMT 

• 

0 

013374 

JMP 

9$: 

20$ 


.-VERIFY RESULTS 

OF WRITE COMMAND 

036552 

JSR 

PC.PRIERR 

ioi 


BR 


NOP 



EMT 



JSR 

pc.b(sp)* 

013374 

JMP 

10$: 

20* 

051612 

JSR 

PC .DTASTS 


BR 

11* 


NOP 



EMT 



JSR 

pc.a(SP)* 

013374 

JMP 

20* 


TO 8$ IF NO ERROR 
rURN HERE IF ERROR 
10R # DEFINED BY PUT SUBROUTINE 


11 $: 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 


60 CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PR1ERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 
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G 7 


SEU 0084 


405 

013062 

004737 

037404 


JSR 

PC. SECERR 

1 2i 


013066 

000405 



BR 


01 3070 

000240 



NOP 



013072 

013074 

104000 

004736 



EMT 

JSR 

PC.8LSP)* 

20i 

406 

407 

408 

Cl 3076 
013102 

000137 

013374 

12$: 

JMP 





.•ALTER 

DATA BUFFER 

409 

410 

411 

013102 

005137 

102720 


COM 

BUF TWO-2 




; SETUP 

AND WRITE CHECK HEADER / 

412 

413 

414 

013106 

012737 

000053 001412 


MOV 

fWCH.'GO.RMCSIO 

013114 

004737 

036004 


JSR 

PC.PUT 

135 


013120 

000404 



BR 


013122 

000240 



NOP 



013124 

104000 



EMT 

20$ 


013126 

000137 

013374 


JMP 


415 013132 


13$: 


410 

417 




.‘WAIT FOR WRITE 

CHECK COMMAND 

418 

013132 

004*37 

036356 

JSR 

PC.TIMOUT 

419 






420 

013136 

004737 

035534 

JSR 

PC. GET 

ui 

013142 

000404 


BR 


013144 

000240 


NOP 



013146 

104000 


EMT 

20$ 


013150 

000137 

013374 

JMP 

4?1 

013154 



14$: 


422 






423 




.•CHECK FOR PRIMARY ERRORS 

424 

013154 

004737 

036552 

JSR 

PC.PRIERR 

155 


013160 

000405 


BR 


013162 

000240 


NOP 



013164 

104000 


EMT 

pc,a<sp>* 

20$ 


013166 

004736 


JSR 


013170 

000137 

013374 

JMP 


425 013174 

426 

427 

428 013174 

429 013202 

430 

431 013204 
013210 
013212 
013214 
013216 
013220 

432 

433 013224 

434 013232 

435 013240 

436 013246 

437 013250 

438 013252 


15 $: 


GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY SECERR SUBROUTINE 

GO BACK FOR WORE ERROR CHECKS 

GO TO 20$ IF ERROR 


.‘COMPLEMENT LAST DATA WORD 


.‘WRITE CHECK COMMAND 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 13$ IF NO ERROR 

.‘RETURN HERE IF ERROR 

.•ERROR « DEFINED BY PUT SUBROUTINE 

;G0 TO 20$ IF ERROR 


;WAIT FOR COMMMAND TO COMPLETE 

.‘GO READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 14$ IF NO ERROR 

.‘RETURN HERE IF ERROR 

.•ERROR * DEFINED BY GET SUBROUTINE 

;G0 TO 20$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 20$ IF ERROR 


032737 040000 001346 
001023 

004737 051612 

000405 

000240 

104000 

004736 

000137 013374 

013737 001346 001140 
052737 040000 001140 
013737 001346 001142 
104337 
000451 


.•MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 

BIT KWCE.RMCS2I .‘IS WRITE CHECK ERROR SET?? 

BNE 17$ ; YES! ! 


16$: 


17 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JNP 

MOV 

BIS 

MOV 

EMT 

BR 


PC.DTASTS 

16i 


PC.BTSP)* 

20i 

RMCS2I ,$GDDAT 
#WCE.$GODAT 
RMCS21 .$BDDAT 

20 $ 


GO VERIFY RESULTS OF DATA TRANSFER 

60 TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

.‘LOAD EXPECTED STATUS 

.‘LOAD RECEIVED STATUS 
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SEQ 0085 
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013252 

013260 

013266 


451 

45 

45 


439 
AAO 
AA1 

442 

443 
AAA 
AA5 

AA6 01327A 
AA7 013302 
AA^ 

AA9 013310 
01 331 A 
013316 
013320 
013322 
A50 013326 
01333A 
0133A2 
0133A6 
A5A 01335A 
A55 013356 
A56 013360 
A57 013362 
A58 013370 
A59 013372 
A60 01337A 
A61 
A62 


01337A 

C1337A 

013376 

013A00 

013A0A 

013A10 

013A1A 

A63 

A6A 

A65 013A22 
A66 013A30 
A67 013A36 
A68 013AAA 
A69 013A52 
A 70 013A60 
A71 


012737 

013737 

162737 


112737 

112737 

00A737 
OOOAOA 
0002AO 
10AGQ0 
000137 
013737 
013737 
005137 
023737 
001 A02 
10A3A0 
OOOAOS 
023737 
001 A01 
10A3A1 


102720 

0013A2 

000002 


000022 

000200 

03553A 


01337A 
001360 
102720 
0011 AO 
00113'' 


OOOOOA 

0002A0 

012706 

013700 

013701 

012737 


012737 

012737 

012737 

012737 

012737 

012737 


001 13A 
001136 
001136 


001526 

001527 


001 1A2 
0011 AO 

001136 


0011 AO 001 1A2 


001100 
001276 
001 A66 
000006 


001057 

001000 

010000 

177376 

101716 

000062 


001226 


001 AA6 
001 A20 
001 AAA 
001A1A 
001A16 
001 A1 2 


.•VERIFY THE ADDRESS OF THE WRITE CHECK ERROR 

MOV #8UF TWO- 2 . SGDADR .-LOAD EXPECTED ADDRESS 

NOV RNBAI.SBDADR .‘LOAD RECEIVED ADDRESS 

SUB #2.$8DADR .DECREMENT RECEIVED ADDRESS 


;GET WCE DATA AND VERIFY IT IS OK 
MOVB #RNDB.GET1NX 
M0V8 #200.GET1NX*1 


.•SETUP FOR READING RMDB 


18 $: 


19 $: 

20 $: 


JSR 

BR 

NOP 

EMT 

JMP 

MOV 

MOV 

COM 

CMP 

BEQ 

EMT 

BR 

CMP 

BEQ 

EMT 


PC. GET 
18$ 


20 $ 

RMD8I .$6DDAT 
8UF TWO-2, $GDDAT 
SGDDAT 

$GDADR.$BDADR 

19$ 

3A0 

20 $ 

SGDDAT, $8DDAT 
20 $ 

3A1 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 

, GO TO 18$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.-ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 20$ IF ERROR 

.‘LOAD RECEIVED DATA WORD 
,'LOAD EXPECTED DATA WORD 

;IS ADDRESS OK?? 

; YESJ J 


;IS DATA WORD OK?? 
;YES!! 


•TEST 6 


FORMAT ONES 


TST6: 


SCOPE 

NOP 

NOV 

MOV 

MOV 

NOV 


fSTACK.SP 

SBASE.RO 

TSTQUE.R1 

#6.$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1> = DEVICE BEING TESTED 

.‘SET TEST NUMBER IN APT MAIL BOX 


.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 


NOV #559. .RMDCO 

NOV #TA2.RMDA0 

NOV #FNT16.RN0F0 

NOV #-258. .RHWCO 

MOV #8UF0NE.RMBA0 

MOV #WH,RMCS10 


A 72 





.•VERIFY 

THAT 

SECTOR IS NOT E 


013466 

004737 

032406 



JSR 

PC .BADSCT 


013472 

000405 




BR 

1$ 


013474 

104401 

063446 



TYPE 

.SCTNSG 


013500 

104000 




EMT 

18$ 


013502 

000137 

014214 



JMP 

473 

013506 




1$: 


#ONES,$TMPO 

474 

013506 

012737 

065054 

001174 


NOV 

475 

013514 

012737 

000001 

001176 


MOV 

#1.$TNP1 

476 

013522 

004737 

034640 



JSR 

PC.GENBUF 

4 77 

013526 




2$: 




CYLINDER = 559. 

TRACK = 2. SECTOR = 0 
16 BIT FORMAT 
2 * 256 WORDS (2’S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


.-CALL BAD SECTOR MODULE 

;G0 TO 1$ IF NO ERROR 

.-TYPE BAD SECTOR MESSAGE 

.’ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 18$ IF ERROR 

;USE ALL ONES DATA PATTERN 

;G0 GENERATE DATA BUFFER 
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I 7 


SEQ 0086 


478 

479 

480 013526 
013532 


004737 

154130 


013534 
013536 
013540 
Cl 3542 

481 013546 

482 

483 

484 013546 

485 013554 

486 013560 

487 013564 

488 013570 

489 013574 

490 01360ft 

491 

492 013604 
013610 
013612 
013614 
013616 

493 013622 

494 

495 

496 013622 

497 013626 

498 013632 

499 

500 

501 013632 
013*36 
013640 
013642 
013644 

502 013650 

503 

504 

505 013650 
013654 
013656 
013660 
013662 
013664 

506 013670 

507 

5 08 

509 013670 


031456 


; PREPARE DEVICE FOR DATA TRANSFER 


JSR 
.WORD 


PC.TSTPRP 
154130 


000404 

000240 

104000 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


014214 


000005 001412 
001555 
000006 
000034 
000032 
000000 
000200 

036004 


014214 


3$: 


BR 

NOP 

ENT 

JNP 


3$ 


18$ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER $ SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '•SKI" OR 'VIP“ IS SET 

VERIFY RECALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 18$ IF ERROR 


.•SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 


MOV 

f SEEK ! G0.RMCS1 0 

.-CHANGE COMMAND 

TO SEEK 

MOV 

#PUTINX.R2 

.-WRITE REGISTER 

INDEX TABLE 

MOVB 

#RMDA.(R2)+ 



M0V8 

#RMDC.(R2H 



MOVB 

«RM0F.(R2>r 



MOVB 

#RMCS1,(R2H 



M0V8 

#200. (R2H 



JSR 

PC. PUT 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

BR 

4$ 

;G0 TO 4$ IF NO ERROR 


NOP 


.-RETURN HERE IF ERROR 


EMT 


.-ERROR # DEFINED BY PUT 

SUBROUTINE 

JMP 

18$ 

;60 TO 18$ IF ERROR 



004737 035450 
004737 036356 


004737 035534 
000404 
000240 
104000 

000137 014214 


004737 044174 

000405 

000240 

104000 

004736 

000137 014214 


012737 000063 001412 


4$: 

.‘SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS .‘SETUP FOR STATUS 

JSR PC.TIMOUT .‘WAIT FOR SEEK TO COMPLETE 

5$: 


;G0 READ SEEK STATUS 


6 $: 


JSR 

BR 

NOP 

EMT 

JMP 


PC. GET 
6 $ 


18$ 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 

.-GO TO 6$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 18$ IF ERROR 


.-VERIFY THE RESULTS OF THE SEEK COMMAND 


7$: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.SEKSTS 

7$ 


PC.BCSP)* 

18§ 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 


.-SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

MOV fWH.'GO.RMCSIO .-WRITE HEADER AND DATA 
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J 7 


SEO 008 7 


510 013676 

511 013702 

512 013706 

513 013712 

514 013716 

515 

516 013722 
013726 
013730 
013732 
013734 

517 013740 

518 

519 

520 013740 

521 

522 013744 
013750 
013752 
013754 
013756 

523 013762 

524 

525 

526 013762 
013766 
013770 
013772 
013774 
013776 

527 014002 

528 014002 
014006 
014010 
014012 
014014 
014016 
014022 
014022 
0140 
0140 
014032 
014034 


531 

m 


012702 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

00C137 


533 

534 014042 

535 014050 

536 

537 014056 
014062 
014064 
014066 
014070 

538 014074 

539 


001560 

000002 

000004 

COOOOO 

000200 


000404 

000240 

104000 


004737 

000405 

000240 

104000 

004756 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


014214 

051612 

014214 

037404 

014214 


NOV #PUTINX*3.R2 
MO 78 #RMWC,(R2>+ 
NO VS #RMBA. (R2)+ 
MO VS fRNCSi , (R2) ♦ 
M0V8 #200. <R2>* 


036004 

JSR 

PC, PUT 

BR 

NOP 

EMT 

8$ 

014214 

JMP 

8$: 

18$ 


.-WAIT FOR WRITE 

COMMAND T( 

036356 

JSR 

PC.TIMOUT 

035534 

JSR 

PC.6ET 


BR 

NOP 

EMT 

9$ 

014214 

JMP 

9$: 

18$ 


.-VERIFY RESULTS OF WRITE I 

036552 

JSR 

PC.PRIERR 

BR 

NOP 

10$ 


10S: 


11 $: 


12 $: 


EMT 

JSR 

JMP 

JSR 

BR 

NOP 

ENT 

JSR 

JNP 

JSR 

BR 

NOP 

ENT 

JSR 

JNP 


PC.i(SP)* 

18 i 

PC. DTASTS 

ni 


pc.a<sp>* 

18§ 

PC.SECERR 

12 § 


pc.a(sp)* 

isi 


.•EXTEND REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROH 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 


.-WAIT FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PKIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 


012737 000073 
012737 102722 

004737 036004 
000404 
000240 
104000 

000137 014214 


001412 

001416 


.READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

NOV IRH'GO.RMCSIO .'READ HEADER $ DATA COMMAND 

NOV fBUFTWO.RMBAO .'CHANGE BUS ADDRESS 


13 $: 


JSR 

BR 

NOP 

EMT 

JMP 




18$ 


GO WRITE RE6ISTER(S) WITH PUT SUBROUTINE 

60 TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 
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SEQ 0088 


540 

541 014074 

542 

543 014100 
014104 
014106 
014110 
014112 

544 014116 

545 

546 

547 014116 
014122 
014124 
014126 
014130 
014132 

548 014136 

549 014136 
014142 
014144 
014146 
014150 
014152 

550 014156 

551 014156 
014162 
014164 
014166 
014170 
014172 

552 014176 

553 

554 

555 014176 
014202 
014204 
014206 
014210 
014212 

556 014214 

557 

558 


004737 036356 


;UAIT FOR READ TO COMPLETE AND GET STATUS 


004737 

000404 

000240 

104C00 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


004737 

101716 

102722 

000402 

000240 

104000 


035534 


014214 


036552 


014214 

051612 


014214 

037404 


014214 


035106 


PC.TIMOUT 

PC, GET 
14$ 


.•VERIFY THE RESULTS OF READ 
JSR PC. PR I ERR 

BR 15* 


PC.iCSP)* 

18$ 

PC.DTASTS 

16$ 


pc.acsp)* 

18$ 

PC.SECERR 

17 $ 


PC.a(SP)* 

18$ 


.•VERIFY DATA 
JSR 
.WORD 
.WORD 
BR 
NOP 
EMT 


PC.CMPBUF 

BUFONE 

BUFTUO 

18$ 


.‘WAIT FOR READ TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 153 IF NO ERROR 
.•RETURN HERE IF ERROR 
; ERROR # DEFINED BY PR1ERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 18$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 


GO COMPARE WRITE, READ DATA BUFFERS 

STARTING ADDRESS OF WRITE BUFFER 

STARTIN6 ADDRESS OF READ BUFFER 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMP8UF SUBROUTINE 


•TEST 7 


FORMAT CHECK ONES 


014214 

014214 

000004 

TST7: 

SCOPE 

014216 

000240 


NOP 

014220 

012706 

001100 

MOV 

014224 

013700 

001276 

MOV 

014230 

013701 

001466 

MOV 

014234 

012737 

000007 001226 

MOV 


559 

560 

561 014242 

562 014250 

563 014256 


#STACK,SP 

S8ASE.R0 

TSTQUE.R1 

#7,$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 


012737 

012737 

012737 


001057 

001000 

010000 


001446 

001420 

001444 


.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 


#559. .RMDCO 

#TA2.RMDA0 

#FMT16,RM0F0 


CYLINDER = 559. 
TRACK = 2, SECTOR 
16 BIT FORMAT 
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L 7 


SEQ 0089 


564 014264 

565 014272 

566 014300 

567 

568 

014306 

014312 

014314 

014320 

014322 

569 014326 

570 014326 

571 014334 

572 014342 

573 014346 

574 

575 

576 014346 
014352 


012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


004737 

154130 


014354 

014356 

014360 

014362 

577 014366 

578 

579 

580 014366 

581 014374 

582 014400 

583 014404 

584 014410 

585 014414 

586 014420 

587 

588 014424 
014430 
014432 
014434 
014436 

589 014442 

590 

591 

592 014442 

593 0H446 

594 014452 

595 

596 

597 014452 
014456 
0U460 


177376 

101716 

000062 


032406 

063446 

015004 

065054 

000001 

034640 

031456 


000404 

000240 

104000 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 

004737 


004737 

000404 

000240 


001414 

001416 

001412 


MOV #-258. .RRWCO 
MOV #8UF0NE.RMBA0 
MOV tWH.RMCSIO 

.-VERIFY THAT SECTOR IS NOT BAD 


001174 

001176 


IS: 


2 $: 


JSR 
8 R 
TYPE 
EMT 
JMP 

MOV 

MOV 

JSR 


PC.BADSCT 
1 $ 

.SCTMSG 

18$ 

#ONES,$TMPO 
#1 ,$TMP1 
PC.GENBUF 


2 ♦ 256 WORDS (2’S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


.-CALL BAD SECTOR MODULE 

.GO TO 1$ IF NO ERROR 

;TYPE BAD SECTOR MESSAGE 

.-ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 18$ IF ERROR 

.-USE ALL ONES DATA PATTERN 

.-GO GENERATE DATA BUFFER 


.-PREPARE DEVICE 
JSR 
.WORD 


FOR DATA TRANSFER 
PC.TSTPRP 
154130 


015004 


000005 001412 
001555 
000006 
000034 
000032 
000000 
000200 

036004 


3$: 


BR 

NOP 

EMT 

JMP 


3$ 


18 $ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •'SKI** OR 'WP M IS SET 

VERIFY RE CALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 18$ IF ERROR 


.-SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 

.-CHANGE COMMAND TO SEEK 

.-WRITE REGISTER INDEX TABLE 


015004 


035450 

036356 


035534 


4$: 


MOV 

#SEEK!G0.RHCS10 

MOV 

#PUTINX,R2 

H0V8 

#R MDA.CR2)* 

Move 

#RMDC.(R2)* 

M0V8 

#RM0F . (R2)+ 

Move 

#RMCS1,(R2>* 

M0V8 

#200.<R2>* 

JSR 

PC. PUT 

BR 

4$ 

NOP 

EMT 

JMP 

18$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERF IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 


.-SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS .-SETUP FOR STATUS 

JSR PC TIMOUT .-WAIT FOR SEEK TO COMPLETE 

5$: 


;G0 READ SEEK STATUS 
JSR PC. GET 

BR 6$ 

NOP 


GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 


A 7 


SEG 0090 
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014462 

104000 


EMT 

18$ 


014464 

000137 

015004 

JMP 

593 

599 

600 

014470 



6$: 





; VERIFY THE 

RESULTS OF THE 

60 1 

014470 

004737 

044174 

JSR 

PC. SEKSTS 


014474 

000405 


BR 

7$ 


014476 

000240 


NOP 



014500 

104000 


EMT 

PC.aiSP)* 

18* 


014502 

004736 


JSR 


014504 

000137 

015004 

JMP 


602 G14510 

603 

604 


7S: 


.-ERROR » DEFINED BY GET SUBROUTINE 
;G0 TO 18$ IF ERROR 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 


605 

014510 

012737 

000063 001412 

MOV 

#WHiGO,RMCSlO 

606 

014516 

012702 

001560 

MOV 

#PUTINX*3.R2 
fRMWC. (R2)+ 

607 

014522 

112722 

000002 

M0V8 

608 

014526 

112722 

000004 

MOVB 

#RMBA, <R2) ♦ 
#RMCS1,(R2>* 

609 

014532 

112722 

000000 

MOVB 

610 

611 

612 

014536 

112722 

000200 

MOVB 

#200, <R2) ♦ 

014542 

004737 

036004 

JSR 

PC. PUT 

014546 

C00404 


BR 

8$ 


014550 

000240 


NOP 



014552 

104000 


EMT 

18$ 


014554 

000137 

015004 

JMP 


613 014560 

614 

615 

616 014560 

617 

618 014564 
014570 
014572 
014574 
014576 

619 014602 

02 0 

621 

622 014602 
014606 
014610 
014612 
014614 
014616 

623 014622 

624 014622 
014626 
014630 
014632 
014634 
014636 

625 014642 

626 014642 
014646 
014650 
014652 


8 $: 


.-SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

.-WRITE HEADER AND DATA 

.-EXTEND REGISTER INDEX TABLE 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 8$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR f DEFINED BY PUT SUBROUTINE 

;G0 TO 18$ IF ERROR 


.-WAIT FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 




.-WAIT FOR WRITE 

COMMAND TO 

004737 

036356 

JSR 

PC.TIMOUT 

004737 

035534 

JSR 

PC, GET 

000404 


BR 

9$ 

000240 


NOP 


104000 


EMT 


000137 

015004 

JMP 

18$ 



9$: 




.-VERIFY RESULTS OF WRITE C 

004737 

036552 

JSR 

PC.PRIERR 

000405 


BR 

ioi 

000240 


NOP 


104000 


EMT 


004736 


JSR 

pc.a<sp>* 

000137 

015004 

JMP 

18* 



10$: 


004737 

051612 

JSR 

PC.DTASTS 

000405 


BR 

11* 

000240 


NOP 


104000 


EMT 


004736 


JSR 

PC.atSP)* 

000137 

015004 

JMP 

18* 



11$: 


004737 

037404 

JSR 

PC, SECERR 

000405 


BR 

12* 

000240 


NOP 


104000 


EMT 



N 7 


SEQ 0091 
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014654 

014656 

627 014662 

628 

629 

630 014662 

631 

632 014670 
014674 
014676 
014700 
014702 

633 014706 

634 

635 

636 014706 

637 

638 014712 
014716 
014720 
014722 
014724 

639 014730 

640 

641 

642 014730 
014734 
014736 
014740 
014742 
014744 

643 014750 

644 014750 
014754 
014756 
014760 
014762 
014764 

645 014770 

646 014770 
014774 
014776 
015000 
015002 

64 7 015004 

648 

649 015004 

650 

651 


015004 


004736 

000137 


004737 

000404 

000240 

104000 

000137 


015004 


PC.i(SP)* 

I8i 


;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 18$ IF ERROR 


012737 000053 001412 


; WRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV AWCH'GO.RMCSIO .‘WRITE CHECK COMMAND 


036004 


015004 


PC. PUT 
13i 


CO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 


004737 036356 


.•WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TJMOUT .‘WAIT FOR READ TO COMPLETE 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000403 

& 

004736 


035534 


015004 


036552 


015004 

051612 


015004 

037404 


PC.GET 

14$ 


.•VERIFY THE RESULTS OF WRITE 


PC.PRIERR 

15$ 


PC.BCSP)* 

18$ 

PC.DTASTS 

16$ 


PC.a(SP)* 

isi 

PC.SECERR 
1 7$ 


pc.acsp)* 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR A DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


CHECK OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 15$ IF NO ERROR 
.•RETURN HERE IF ERROR 
; ERROR # DEFINED BY PRIERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 18$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 


**************************************************************** 


015004 000004 
015006 000240 
015010 012706 001100 
015014 013700 001276 
015020 013701 001466 


.•♦TEST 10 FORMAT CHECK ONES W/ WCE ERRORS 

tSTIO: *********************** * 


SCOPE 

NOP 

MOV 

NOV 

MOV 


ASTACK.SP 

$8ASE.R0 

TST0UE.R1 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
(R1) = DEVICE BEING TESTED 


L. 
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JEO 0092 


015024 

652 

653 

654 015032 

655 015040 

656 015046 

657 015054 

658 015062 

659 015070 


015076 

015102 

015104 

015110 

015112 

662 015116 

663 015116 

664 015124 

665 015132 

666 015136 

667 

668 

669 015136 
015142 


012737 000010 001226 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


004737 

154130 


015144 

015146 

015150 

015152 

6 70 015156 

671 

672 

673 015156 

674 015164 

675 015170 

676 015174 

677 015200 

678 015204 

679 015210 


000404 

000240 

104000 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 


MOV #10.STESTN 


; ; SET TEST NUMBER IN APT MAIL BOX 


001057 

001000 

010000 

177376 

101716 

000062 


032406 

063446 

015742 

065054 

000001 

034640 


031456 


001446 

001420 

001444 

001414 

001416 

001412 


.■SETUP PARAMETERS FOR GENERATING DATA BUFFER 


001174 

001176 


MOV #559. .RMDCO 

MOV #TA2.RNDA0 

MOV #FNT16,RM0F0 

MOV #-258. .RHUCO 

MOV #8UF0NE .RH8A0 

MOV #WH,RMCS10 

.-VERIFY THAT SECTOR IS NOT BAD 
JSR PC.BADSCT 

BR IS 

TYPE .SCTMSG 


#ONES,$TMPO 
#1 .STMP1 
PC.GENBUF 


CYLINDER = 559. 

TRACK = 2. SECTOR = 0 
16 BIT FORMAT 
2 ♦ 256 WORDS (2‘S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


.'CALL BAD SECTOR MODULE 

;G0 TO IS IF NO ERROR 

.'TYPE BAD SECTOR MESSAGE 

.'ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 20S IF ERROR 

;USE ALL ONES DATA PATTERN 

;G0 GENERATE DATA BUFFER 


.'PREPARE DEVICE FOR DATA TRANSFER 


JSR 

.WORD 


PC.TSTPRP 

154130 


015742 


000005 001412 
001555 
000006 
000034 
000032 
000000 
000200 


PREPARE DEVICE FOR 1EST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '•SKI" OR , T*IP ,# IS SET 

VERIFY RECALIBRATION 

GO TO 3S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 2 OS IF ERROR 


.-SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 


MOV fSEEK.'GO.RMCSIO 

NOV #PUTINX,R2 

M0V8 #RMDA.(R2)+ 

MOVB #RMDC.(R2)+ 

MOVB #RM0F.(R2)+ 

N0V8 #RMCS1.(R2>+ 

MOVB #200,(62)* 


.‘CHANGE COMMAND TO SEEK 
.•WRITE REGISTER INDEX TABLE 


uuw 

681 015214 

004737 

036004 

JSR 

PC .PUT 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

015220 

000404 


BR 

4S 

;G0 TO 4S IF NO ERROR 

015222 

000240 


NOP 


.RETURN HERE IF ERROR 

015224 

104000 


EMT 


.‘ERROR # DEFINED BY PUT SUBROUTINE 

015226 

000137 

015742 

JMP 

20$ 

;G0 TO 20S IF ERROR 

682 015232 



4S: 



003 

684 



.‘SETUP FOR READING STATUS AND 

THEN WAIT FOR SEEK TO COMPLETE 

685 015232 

004737 

035450 

JSR 

PC.GETSTS 

.-SETUP FOR STATUS 

686 015236 

004737 

036356 

JSR 

PC.TIMOUT 

.-WAIT FOR SEEK TO COMPLETE 
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C 8 


SEQ 0093 


687 015242 

688 

690 015242 
015246 
015250 
015252 
015254 

691 015260 

692 

693 

694 015260 
015264 
015266 
015270 
015272 
015274 

695 015300 

696 

697 

698 015300 

699 015306 

700 015312 

701 015316 

702 015322 

703 015326 

704 

705 015332 
015336 
015340 
015342 
015344 

706 015350 

707 

708 

709 015350 

710 

711 015354 
015360 
015362 
015364 
015366 

712 015372 

713 

714 

715 015372 
01537e» 
015400 
015402 
015404 
015406 

716 015412 

717 015412 
015416 
015420 
015422 
015424 


004737 035534 
000404 
000240 
104000 

000137 015742 


004737 

000405 

000240 

104000 

004736 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 

004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 


5$: 

;G0 READ SEEK STATUS 


6 $: 


JSR 

8R 

NOP 

EMT 

JMP 


PC. GET 

6 $ 


20 $ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 


044174 


015742 


000063 001412 
001560 
000002 
000C04 
000000 
000200 

036004 


015742 

036356 

035534 

015742 

036552 

015742 

051612 


.•VERIFY THE RESULTS OF THE SEEK COMMAND 


7$: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.SEKSTS 

7$ 


PC.i(SP)* 

20 $ 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 


.•SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 


8 $: 


MOV 

MOV 

M0V8 

M0V8 

Hove 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 


fWH'GO.RMCSIO 

APUTINX+3.R2 

#RMWC.(R2)+ 

#RMBA.(R2>+ 

#RMCS1.(R2)+ 

#200,(R2)+ 

PC. PUT 

8 $ 


20 $ 


.‘WRITE HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 


GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 20$ IF ERROR 


.•WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT .‘WAIT FOR COMMAND TO COMPLETE 


9$: 

.VERIFY 


JSR 

BR 

NOP 

EMT 

JMP 


PC, GET 
9$ 


20 $ 


10 $: 


RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 
BR 
NOP 
EMT 
JSR 


OF 

PC, 

ioi 


WRITE COMMAND 
PRIERR 


PC.B(SP)* 

20i 

PC.DTASTS 

ni 


pc.acsp)* 


GO READ RE6ISTERCS) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 


r 


D 8 
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SEQ 0094 


015426 

71 o 015432 

719 015432 
015436 
015440 
015442 
015444 
015446 

720 015452 

721 

722 

723 015452 

724 

725 

726 015456 

727 

72 8 015464 
015470 
015472 
015474 
015476 

729 015502 

730 

731 

732 015502 

733 

734 015506 
015512 
015514 
015516 
015520 

735 015524 

736 

737 

738 015524 
015530 
015532 
015534 
015556 
015540 

739 015544 

740 

741 

742 015544 

743 015552 

744 

745 015554 
015560 
015562 
015564 
015566 
015570 

746 015574 

74 7 015602 

748 015610 

749 015616 

750 015620 


000137 015742 

004737 037404 

000405 

000240 

104000 

004736 

000137 015742 


005137 102720 


012737 000053 001412 

004737 036004 
000404 
000240 
104000 

000137 015742 


004737 036356 

004737 035534 
000404 
00C240 
104000 

000137 015742 


PC.SECERR 

12i 


PC.i(SP)* 

20i 


.•ALTER DATA BUFFER 

COM BUFTWO-2 


;G0 TO 20S IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 12S IF NO ERROR 

.•RETURN HERE IF ERROR 

.ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 20$ IF ERROR 


.-COMPLEME DATA WORD 


.’SETUP AND WRITE CHECK HEADER AND DATA COMMAND 

MOV fWCH.'GO.RMCSIO .-WRITE CHECK COMMAND 


004737 

000405 

000240 

104000 

004736 

000137 


032737 

001022 

004737 

000405 

000240 

104000 

004736 

000137 

013737 

052737 

013737 

104337 


036552 


015742 


PC.PUT 

13 $ 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 13$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.•ERROR # DEFINED BY PUT SUBROUTINE 

;GC TO 20$ IF ERROR 


.-WAIT FOR WRITE CHECK COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT .-WAIT FOR CQMMMAND TO COMPLETE 


PC.GET 

14$ 


.-CHECK FOR PRIMARY ERRORS 
JSR PC.PRIERR 

BR 15$ 


PC.a<SP)+ 

20 $ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 


040000 001346 


051612 


.’MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 

BIT 0WCE.RMCS2I ;IS WRITE CHECK ERROR SET?? 

BNE 17$ ; YES ! ! 


015742 

001346 

040000 

001346 


001140 

001140 

001142 


PC.DTASTS 

16$ 


PC.i(SP)* 

20 $ 

RMCS2I.SGDDAT 

#WCE.$GDDAT 

RMCS2I.SBDDAT 

337 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

.LOAD EXPECTED STATUS 

.LOAD RECEIVED STATUS 


17 $: 


SEQ 0095 
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751 

752 

753 015620 

754 015626 

755 015634 

756 

757 

758 015642 

759 015650 

760 

761 015656 
015662 
015664 
015666 
015670 

762 015674 

763 015702 

764 015710 

765 015714 

766 015722 

767 015724 

768 015726 

769 015730 

770 015730 

771 015736 

772 015740 

773 015742 

774 

775 


015742 

015742 

015744 

015746 

015752 

015756 

015762 

776 

777 

778 015770 

779 015776 

780 015776 

781 016004 

782 016012 

783 016020 

784 016026 

785 

786 

016034 

016040 

016042 

016046 

016050 

787 016054 

788 016054 

789 016062 


012737 

013737 

162737 


112737 

112737 

004737 

000404 

000240 

104000 

000137 

013737 

013737 

005137 

023737 

001402 

104340 

000405 

023737 

001401 

104341 


102720 

001134 

MOV 

001342 

001136 

NOV 

000002 

001136 

SUB 



.-GET WCE DAT/ 

000022 

001526 

NOVB 

000200 

001527 

movb 

035534 


JSR 



BR 



NOP 



EMT 

015742 


JMP 

001360 

001142 

18$: MOV 

102720 

001140 

MOV 

001140 


COM 

001134 

001136 

CMP 


; VERIFY THE ADDRESS OF THE WRITE CHECK ERROR 


#BUF TWO-2 , $GDADR 
RMBAI ,$BDADR 
#2.$8DADR 

YD VERIFY IT IS OK 
fRNDB.GETINX 
#200,GETINX*1 


LOAD EXPECTED ADDRESS 
LOAD RECEIVED ADDRESS 
DECREMENT PECEIVED ADDRESS 


; SETUP FOR READING RMD6 


001140 001142 


19 $: 

20 $: 


BEO 

EMT 

BR 

CMP 

BEQ 

EMT 


PC.GET 

1 si 


20 $ 

RMDBI.$BDDAT 
BUF TWO-2, SGDDAT 
$GDDAT 

$GDADR,$BDADR 

19 $ 

340 
20 $ 

$GDDAT,$8DDAT 

20 $ 

341 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 

;L0AD RECEIVED DATA WORD 
;L0AD EXPECTED DATA WORD 

;IS ADDRESS OK?? 

; YES! : 


; I S DATA WORD OK?? 
; YES! ! 


•TEST 11 


FORMAT MULTIPLE SECTORS 


000004 

000240 

012706 

013700 

013701 

012737 


001100 

001276 

001466 

000011 


001226 


012737 010000 001444 


TST11 : 

SCOPE .‘SCOPE CALL 

NOP .-START OF TEST 

MOV fSTACK.SP ; INITIALIZE STACK POINTER 

MOV $6ASE.R0 ;R0 = UNIBUS ADDRESS 

MOV TSTQUE.R1 ;(R1> = DEVICE BEING TESTED 

MOV #11,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 


012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 


001057 

001000 

176774 

101716 

000062 


032406 

063446 

016560 

065116 

000001 


001446 

001420 

001414 

001416 

001412 


1 $: 


001174 

001176 


;VERIFY 


2 $: 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

THAT 

JSR 

BR 

TYPE 

EMT 

JMP 

MOV 

MOV 


#FNT16,RN0F0 ;16 BIT FORMAT 


#559. .RMDCO 

#TA2.RMDA0 

#-25o.*2.RNWCO 

#8UF0NE,RHBA0 

#WH,RMCS10 

SECTOR IS NOT BAD 
PC.BADSCT 
2 $ 

.SCTMSG 

19 $ 

#ZEROS,$TMPO 
#1 ,$TMP1 


.-CYLINDER = 559. 

.-TRACK = 2. SECTOR = 0 

.-WORD COUNf FOR 2 SECTORS <2'S COMP) 

.-DATA BUFFER ADDRESS 

.-WRITE HEADER AND DATA 

.-CALL BAD SECTOR MODULE 

;G0 TO 2$ IF NO ERROR 

.-TYPE BAD SECTOR MESSAGE 

; ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 19$ IF ERROR 

.-USE ALL ZEROS DATA PATTERN 


CZRNEAO RM80 FCTNL PT2 MACRO V04.00 28- JAN-82 16:38:23 PA6E 13-25 
Til FORMAT MULTIPLE SECTORS 


F 8 


SEG 0096 


790 

016070 

004737 

034640 

791 

016074 



792 




793 




794 

016074 

004737 

031456 


016100 

154130 



016102 

016104 

016106 

016110 

795 016114 

796 

797 

798 016114 

799 016122 

800 016126 

801 016132 

802 016136 

803 016142 

804 016146 

805 

806 016152 
016156 
016160 
016162 
016164 

807 016170 

808 

809 

810 016170 

811 016174 

812 016200 

813 

814 

815 016200 
016204 
016206 
016210 
016212 

816 016216 

817 

818 

819 016216 
016222 
016224 
016226 
016230 
016232 

820 016236 

821 


000404 

000240 

104000 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 

004737 


3S: 


JSR 


PC.GENBUF 


;GQ GENERATE DATA BUFFER 


.•PREPARE DEVICE FOR DATA TRANSFER 


JSR 
.WORD 


PC.TSTPRP 
154130 


016560 


000005 001412 
001555 
000006 
000034 
000032 
000000 
000200 

036004 


4S: 


BR 

NOP 

EMT 

JMP 


45 


195 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILAOLE 

CLEAR CONTROLLER l SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR ’^IP" IS SET 

VERIFY RECALIBRATION 

GO TO 45 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR K DEFINED BY TSTPRP SUBROUTINE 

GO TO 195 IF ERROR 


.•SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 


016560 


035450 

036356 


MOV 

#SEEK!G0.RMCS10 

.•CHANGE COMMAND TO SEEK 

MOV 

#PUTINX.R2 

.•WRITE REGISTER INDEX TABLE 

M0V8 

#RMDA.(R2)+ 


MOVE 

#RMDC,(R2>+ 


MOVB 

#RMOF. (R2)+ 


MOVB 

#RMC$1,(R2H 


MOVB 

#200. < R2)+ 


JSR 

PC, PUT 

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

SR 

55 

;60 TO 55 IF NO ERROR 

NOP 


.•RETURN HERE IF ERROR 

EMT 


.•ERROR # DEFINED BY PUT SUBROUTINE 

JMP 

195 

;G0 TO 195 IF ERROR 


55: 

.SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.6ETSTS .-SETUP FOR STATUS 

JSR PC.TIMOUT .-WAIT FOR SEEK TO COMPLETE 

65: 


004737 035534 
000404 
000240 
104000 

000137 016560 


004737 044174 

000405 

000240 

104000 

004736 

000137 016560 


STATUS 


75: 


85: 


JSR 

PC, GET 

BR 

75 

NOP 


EMT 


JMP 

195 

THE 

RESULTS OF THE 

JSR 

PC. SEKSTS 

BR 

85 

NOP 


EMT 


JSR 

pc.aisp)* 

JMP 

19$ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 75 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 195 IF ERROR 


SEEK COMMAND 

r GO VERIFY RESULTS OF SEEK OPERATION 
;G0 TO 85 IF NO ERROR 
.•RETURN HERE IF ERROR 
; ERROR # DEFINED BY SEKSTS SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 195 IF ERROR 
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SEQ 0097 


822 

823 016236 

824 016244 

825 016250 

826 016254 

827 016260 

828 016264 

829 

830 016270 
016274 
016276 
016300 
016302 

831 016306 

832 

833 

834 016306 

835 

836 016312 
016316 
Cl 6320 
016322 
016324 

837 016330 

838 

839 

840 016330 
016334 
016336 
016340 
016342 
016344 

841 016350 

842 016350 
016354 
016356 
016360 
016362 
016364 

843 016370 

844 016370 
016374 
016376 
016400 
016402 
016404 

845 016410 

846 

847 

848 016410 

849 

850 016416 
016422 
016424 
016426 
016430 

851 016434 


012737 000063 
012702 001560 
112722 000002 
112722 000004 
112722 000000 
112722 000200 

004737 036004 

000404 

000240 


000063 001412 
001560 


104000 

000137 


016560 


004737 036356 

004737 035534 
000404 
000240 
104000 

000137 016560 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


; SETUP A NO EXECUTE WRITE HEADER AND DATA COMMAND 


036552 


016560 

051612 


016560 

037404 


016560 


#WH!60,RMCS10 
#PUTJNX*3,R2 
#RMWC,(R2>+ 
#RMBA.(R2>+ 
fRMCSI , (R2)+ 
*200. (R2H 

PC, PUT 
9* 


; WRITE HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 9$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 19$ IF ERROR 


.•WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT .-WAIT FOR COMMAND TO COMPLETE 


PC.GET 

ioi 


.•VERIFY RESULTS OF WRITE COMMAND 
JSR PC.PRIERR 

BR 11$ 


PC.aiSPH 

it i 

PC.DTASTS 

12i 


pc.aisp)* 

i9i 

PC.SECERR 

13i 


pc,a(sp>+ 

I9i 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 19$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 19$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 19$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 19$ IF ERROR 


012737 000053 001412 

004737 036004 
000404 
000240 
104000 

000137 016560 


; WRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
NOV #WCH.'G0,RMCS10 .-WRITE CHECK COMMAND 


PC .PUT 
14i 


.-GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 14$ IF NO ERROR 

.RETURN HERE IF ERROR 

.•ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 19$ IF ERROR 


I 


i 


H 8 


SEQ 0098 
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852 

853 

854 016434 

855 

856 016440 
016444 
016446 
016450 
016452 

857 016456 

858 


004757 

004737 

000404 

000240 

104000 

000137 


036356 

035534 

016560 


;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT .-WAIT FOR WRITE CHECK TO FINISH 


15$: 


JSR 

BR 

NOP 

EMT 

JMP 


PC, GET 
15$ 


19$ 


860 016456 

004737 

036552 

JSR 

016462 

000405 


BR 

016464 

000240 


NOP 

016466 

104000 


EMT 

016470 

004736 


JSR 

016472 

000137 

016560 

JMP 

861 016476 



16$: 


.-VERIFY THE RESULTS OF WRITE 
PC.PRIERR 
16$ 


PC.8CSPH 

19 $ 


862 016476 004737 051612 


JSR 


016502 

000405 

BR 

016504 

000240 

NOP 

016506 

104000 

EMT 

016510 

004736 

JSR 

016512 

000137 016560 

JMP 

863 016516 


17$: 


864 016516 004737 037404 


JSR 


016522 

000405 

BR 

016524 

000240 

NOP 

016526 

104000 

EMT 

016530 

004736 

JSR 

016532 

000137 016560 

JMP 

865 016536 

18$: 



866 016536 

867 016544 

868 016546 

869 016554 

870 016560 

871 

872 


016560 

016560 

016562 

016564 

016570 

016574 

016600 

873 

874 

875 016606 

876 016614 

877 016622 

878 016622 

879 016630 

880 016636 


032737 

001005 

052737 

000137 


001000 

001000 

015776 


001444 

001444 


19 $: 


BIT 

BNE 

BIS 

JMP 


PC.DTASTS 

17$ 


pc.acsp)* 

19 $ 

PC.SECERR 

18$ 


PC.a(SP)* 

19$ 

#SSEI,RMOFO 

19$ 

#SSE1 .RMOFO 
1 $ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 19$ IF ERROR 


CHECK OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 16$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 19$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 17$ IF NO ERROR 
RETURN HERE If ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 19$ IF ERROR 


GO CHECK FOR SECONDARY ERRORS 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 19$ IF ERROR 

TEST 16 BIT MODE W/ SSEI YET ? 

YES ' 1 

SET SSEI IN OFFSET AND 
TEST AGAIN. 


000004 

000240 

012706 

013700 

013701 

012737 


012737 

012737 

012737 

012737 

012737 


; *TEST 12 
• « *****»•< 

TST12: 


READ HEADER t DATA W/ HEAD SWITCHING 


001100 

001276 

001466 

000012 


001036 

010000 

001057 

176774 

101716 


001226 


001420 

001444 

001446 

001414 

001416 


SCOPE 


.-SCOPE CALL 

NOP 


.-START OF TEST 

MOV 

#STACK, SP 

.-INITIALIZE STACK POINTER 

MOV 

$8ASE.R0 

;R0 = UNIBUS ADDRESS 

MOV 

TSTQUE,R1 

;(R1> = DEVICE BEING TESTED 

MOV 

#12,$TESTN 

.-.-SET TEST NUMBER IN APT MAIL BOX 


.-SETUP PARAMETERS FOR GENERATING DATA BUFFER 


1 $: 


MOV #TA2!30. .RMDAO 

MOV IFMT16, RMOFO 

MOV #559. .RMDCO 

MOV #-258.*2.RMWC0 

MOV #BUFONE.RMBAO 


.-TRACK = 2, SECTOR = 30. 

;16 BIT FORMAT 

.-CYLINDER = 559. 

.-WORD COUNT FOR 2 SECTORS (2’S COMP) 
.-DATA BUFFER ADDRESS 


SEO 0099 
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881 016644 
88 2 
883 

88a 016644 
016650 


004737 

154130 


031456 


016652 

016654 

016656 

016660 

885 016664 

886 

8S-7 

888 016664 

889 016672 

890 016676 

891 016702 

892 016706 

89$ 016712 

894 016716 

895 

896 016722 
016726 
016730 
016732 
016734 

897 016740 

898 

899 

900 016740 

901 016744 

902 016750 

903 

904 

905 016750 
016754 
016756 
016760 
016762 

906 016766 

907 

908 

909 016766 
016772 
016774 
016776 
017000 
017002 

910 017006 


.■PREPARE DEVICE FOR DATA TRANSFER 


JSR 

.WORD 


PC.TSTPRP 

15*130 


000404 

000240 

104000 

000137 017220 


012737 000005 001412 
012702 001555 
112722 000006 
112722 000034 
112722 000032 
112722 000000 
112722 000200 

004737 036004 
000404 
000240 
104000 

000137 017220 


004737 035450 
004737 036356 


004737 035534 
000404 
000240 
104000 

000137 017220 


004737 044174 

000405 

000240 

104000 

004736 

000137 017220 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE l VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER 8 SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ,, SKI M OR 'WP" IS SET 

VERIFY RECALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 13S IF ERROR 


.-SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 


MOV ASEEK.'GO.RNCSIO 

MOV 4PUTINX.R2 

M0V8 #RMDA.(R2)+ 

M0V8 #RMDC.(R2)+ 

H0V8 #RM0F.(R2)+ 

MOVB #RMCSl.(R2)+ 

MOVB 0200. ( R2)* 

JSR PC. PUT 

BR 4$ 


.•CHANGE COMMAND TO SEEK 
.•WRITE REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

GO TO 13S IF ERROR 


.SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS .‘SETUP FOR STATUS 

JSR PC.TIMOUT .-WAIT FOR SEEK TO COMPLETE 

5$: 


;G0 READ SEEK STATUS 


PC. GET 

6S 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 6$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.•ERROR 0 DEFINED BY GET SUBROUTINE 

;G0 TO 13$ IF ERROR 


.-VERIFY THE RESULTS OF THE SEEK COMMAND 


PC.SEKSTS 

7$ 


PC.i(SP)* 

13$ 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 


.•SETUP AND EXECUTE READ HEADER AND DATA COMMAND 


J 8 
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SEQ 0100 


913 017006 

91 A 017014 

915 017020 

916 017024 

917 017030 

918 017034 

919 

920 Cl 7040 
017044 
017046 
017050 
017052 

921 017056 

922 

923 

924 017056 

925 

926 017062 
017066 
017070 
017072 
017074 

927 

928 

929 

930 017100 

931 017100 

932 017106 

933 

93 ' 

935 017110 
017114 
017116 
017120 
017122 
017124 

936 017130 

937 017130 
017134 
017136 
017140 
017142 
017144 

938 017150 

939 017150 
017154 
01715 
0171 
0171 _ 
017164 
017170 

17170 
17176 
.17200 

944 017206 

945 017214 

946 01 ’220 



012737 

012702 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 

004737 

000404 

000240 

104000 

000137 



000073 

001560 

000002 

000004 

000000 

000200 

036004 


017220 

036356 

035534 

017220 


032737 

001030 

000040 

004737 

000405 

000240 

104000 

004736 

036552 

000137 

017220 

004737 

000405 

000240 

104000 

051612 

004 73 | 
000137 

017220 

004737 

000405 

037404 


m 

012737 

052737 

000137 


001412 


8 $: 


NOV 

NOV 

N0V8 

N0V8 

N0V8 

M0V8 

JSR 

BK 

HOP 

ENT 

JMP 


#RH!G0,RNCS10 
#PUTINX*3,R2 
fRMWC, (R2/+ 
fRMBA. (R2> ♦ 
fRMCSi , (R2) ♦ 
#200,(R2>+ 

PC, PUT 

8S 


13$ 


.READ HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 


;WA1T FOR READ COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT .-WAIT FOR COMMAND TO COMPLETE 


JSR 

BR 

NOP 

ENT 

JMP 


PC. GET 
9$ 


13$ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 


001400 


.•CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 
;D0 NOT EXECUTE THIS TEST IN 16 BIT FORMAT NODE 
$$: 

BIT #SSE,RMER2I ;IS 'SSE* BIT SET ? 

BNE 12$ ;BR IF YES 


.•VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 


10 $: 


11 $: 


017220 

001000 

001037 

001000 

016622 


001444 

001420 

001444 


12 $: 


13 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

BIT 

BNE 

NOV 

BIS 

JMP 


OF READ COMMAND 
PC.PRIERR 
10 $ 


PC.a(SP)* 

13* 

PC.DTASTS 

iii 


pc,a<sp>* 

13* 

PC.SECERR 

12* 


pc.aisp)* 

13* 

fSSEl.RMOFO 

13$ 

#TA2.'31 . .RMDAO 
fSSEl.RMOFO 
1 $ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 13$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

TEST 16 BIT NODE W/ SSEI ? 

YES 1 1 

TRACK' = 2, SECTOR = 31. 

SET SSEI BIT IN OFFSET AND 
TEST AGAIN 
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SEQ 0101 


949 

950 

951 017246 

952 017254 

953 017262 

954 017270 

955 017270 

956 017276 

957 017304 

958 017312 

959 

961 017312 
017316 


•TEST 13 


READ HEADER l DATA W/ HID TRANSFER SEEX 


017220 

017220 

000004 

TST13: 

SCOPE 

017222 

000240 


NOP 

017224 

012706 

001 1 DO 

HO V 

017230 

013700 

001276 

HOV 

017234 

013701 

001466 

HOV 

017240 

012737 

000013 001226 

HOV 


#STACK.SP 

SBASE.RO 

TSTQUE.R1 

#13,$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1> = DEVICE BEING TESTED 

; SET TEST NUHBER IN APT HAIL BOX 


013737 

112737 

012737 

012737 

012737 

012737 


004737 

154130 


017320 

017322 

017324 

017326 

962 017332 

963 

964 

965 017332 

966 017340 

967 017344 

968 017350 

969 017354 

970 017360 

971 017364 

972 

973 017370 
017374 
017376 
017400 
017402 

974 017406 

975 

976 

977 017406 

978 017412 


001334 

000036 

010000 

001057 

176774 

101716 


031456 


000404 

000240 

104000 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 

004737 


001420 

001420 

001444 

001446 

001414 

001416 


.SETUP PARAHETERS FOR GENERATING DATA BUFFER 


HOV 

LSTRK.RHDAO 

.•START LAST TRACK AND 


HOVB 

#30. .RHDAO 

.•LAST SECTOR 

IS: 

HOV 

#FHT*6,RH0F0 

;16 BIT FORHAT 

HOV 

#559. .RHDCO 

.•CYLINDER = 559. 


HOV 

#-258.*2,RHWC0 

.•WORD COUNT FOR 2 SECTORS (2’S CCHP) 

2$: 

HOV 

#8UF0NE.RHBA0 

.-DATA BUFFER ADDRESS 


.PREPARE DEVICE FOR DATA TRANSFER 


JSR 

.WORD 


PC.TSTPRP 

15*130 


017674 


000005 001412 
001555 
000006 
000034 
000032 
000000 
000200 

036004 


017674 


035450 

036356 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE l VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF 'SKI* OR ‘PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 3S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 13$ IF ERROR 


.•SETUP PARAHETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 


#SEEK'G0.RKCS10 
#PUTINX,R2 
fRHDA. (R2> ♦ 
#RHDC,(R2>* 
#RH0F.(R2>* 
#RHCSl . <R2) ♦ 
#200. <R2>* 

PC. PUT 
4$ 


.•CHANGE COHHAND TO SEEK 
.WRITE REGISTER INDEX TABLE 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 4$ IF NO ERROR 

.RETURN HERE IF ERROR 

.-ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 13$ IF ERROR 


.SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COHPLETE 
JSR PC.GETSTS .-SETUP FOR STATUS 

JSR PC.TIHOUT .‘WAIT FOR SEEK TO COHPLETE 


L 
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L 8 


SEQ 0102 


979 

QBA 

017416 



5$: 


you 

981 




;G0 READ SEEK 

STATUS 

982 

017416 

004737 

035534 

JSR 

PC. GET 


017422 

000404 


BR 

6$ 


017424 

000240 


NOP 



017426 

104000 


EMT 



017430 

000137 

017674 

JMP 

13$ 

983 

017434 



6$: 



984 

985 


986 017434 

004737 

044174 


JSR 

PC. SEKSTS 

017440 

000405 



BR 

7$ 

017442 

000240 



NOP 


017444 

104000 



EMT 

PC.i'SP)* 

i3i 

017446 

004736 



JSR 

017450 

000137 

017674 


JMP 


98 7 017454 

988 

989 

990 017454 

991 017462 

992 017466 

993 017472 

994 017476 

995 017502 

996 

997 017506 
017512 
017514 
017516 
017520 

998 017524 

999 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 


.•VERIFY THE RESULTS OF THE SEEK COMMAND 

60 VERJfy results OF SEEK OPERATION 

GO TO VS IF NO ERROR 
RETURN HERE IF ERROR 
ERROR 0 DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 13$ IF ERROR 
7$: 


012737 

012702 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


000073 

001560 

000002 

000004 

000000 

000200 

036004 


017674 


001412 


.•SETUP AND EXECUTE READ HEADER AND DATA COMMAND 


8 $: 


MOV 

MOV 

movb 

movb 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 


ARH.'GO.RMCSIO 
#PUTINX*3.R2 
#RMWC.(R2>* 
#RMBA. (R2)+ 
#RMCS1,<R2H 
0200, (R2)* 

PC. PUT 
8 $ 


13$ 


.•READ HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
;60 TO 8$ IF NO ERROR 
; RETURN HERE IF ERROR 
; ERROR 0 DEFINED BY PUT SUBROUTINE 
;G0 TO 13$ IF ERROR 


1001 

1002 

1003 

017524 

004737 

036356 

JSR 

PC.TIMOUT 

017530 

004737 

035534 

JSR 

PC. GET 

017534 

000404 


BR 

9$ 


017536 

000240 


NOP 



017540 

104000 


EMT 

13$ 


017542 

000137 

017674 

JMP 


1004 

1005 

1006 

1007 017546 

1008 017546 

1009 017554 

1010 
1011 

1012 017556 
017562 
017564 
017566 
017570 
017572 

1013 017576 


032737 000040 
001030 


004737 036552 

000405 

000240 

104000 

004736 

000137 017674 


001400 


.-WAIT FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR 0 DEFINED BY GET SUBROUTINE 
GO TO 13$ IF ERROR 

.•CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST. IF SO 

•DO NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 

9$* 

BIT 0SSE.RMER2I ;IS *SSE' BIT SET ? 

BNE 12$ ;BR IF YES 


; VERIFY RESULTS OF READ COMMAND 


10 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.PRIERR 

ioi 


PC,8(SPH 

i3i 


GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 


M 8 


CZRNEAO 

T13 

1014 


1015 

1016 


1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 
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017576 

004737 

051612 



JSR 

PC, DTASTS 

ni 

017602 

000405 




BR 

017604 

000240 




NOP 


017606 

104000 




EMT 

pc.aisp)* 

i3i 

017610 

004736 




JSR 

017612 

000137 

017674 



JMP 

017616 

017616 

004737 

037404 


11$: 

JSR 

PC, SECERR 

12i 

017622 

000405 




BR 

017624 

000240 




NOP 


017626 

104000 




EMT 

pc.aispj* 

I3i 

017630 

004736 




JSR 

017632 

017636 

0J0137 

017674 


12$: 

JMP 


017636 

032737 

001000 

001444 


BIT 

#SSEI.RM0F0 

017644 

001013 




BNE 

13$ 

017646 

013737 

001334 

001420 


MOV 

LSTRK,RMDAO 

017654 

112737 

000037 

001420 


MOVB 

#31 . .RMDAO 

017662 

052737 

001 OCO 

001444 


BIS 

fSSEI.RMOFO 

017670 

017674 

000137 

017270 


13$: 

JMP 

1$ 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

TEST 16 BIT MODE y/ SSEI SET ? 

YES * 1 

START 'LAST TRACK AND 
LAST SECTOR 

SET SSEI IN OFFSET AND 
TEST AGAIN. 


* ‘A************************************************************** 

•iTEST 14 FORMAT y/ IMPLIED SEEK 


-*************************************************************** 



017674 




TST14: 



017674 

000004 



SCOPE 



017676 

000240 



NOP 



017700 

012706 

001100 


MOV 

#STACK,SP 


017704 

013700 

001276 


MOV 

S6ASE.R0 


017710 

013701 

001466 


MOV 

TSTQUE.R1 

1027 

1028 

017714 

012737 

000014 

001226 

MOV 

#14.$TESTN 





.•SETUP PARAMETERS FOR GENERATING 

1029 

017722 

012737 

001057 

001446 

MOV 

#559. ,RMDCO 

1030 

017730 

012737 

001000 

001420 

MOV 

#TA2. RMDAO 
#FNT*6,RN0F0 

1031 

017736 

012737 

010000 

001444 

MOV 

1032 

017744 

012737 

176774 

001414 

MOV 

#-258.*2.RftyC0 ; 

1033 

017752 

012737 

101716 

001416 

MOV 

#8UF0NE.RMBA0 ; 

1034 

1035 

1036 

017760 

012737 

000062 

001412 

MOV 

#UH,RMCS10 





.•VERIFY THAT SECTOR IS NOT BAD 

017766 

004737 

032406 


JSR 

PC .BADSCT 


017772 

000405 



BR 

1$ 


017774 

104401 

063446 


TYPE 

.SCTMSG 


020000 

104000 



EMT 

18$ ; 


020002 

000137 

020512 


JMP 

1037 

020006 




1$: 

#ZEROS,$TMPO 

1038 

020006 

012737 

065116 

001174 

MOV 

1039 

020014 

012737 

000001 

001176 

MOV 

#1 .$TMP1 

1040 

020022 

004737 

034640 


JSR 

PC.GEN8UF 

1041 

1042 

1043 

020026 




2$: 






.•PREPARE DEVICE 

FOR DATA TRANSFER 

1044 

020026 

004737 

031456 


JSR 

PC.TSTPRP 

020032 

154130 



.UORD 

154130 


2 SECTORS (2'S COMP) 


CALL BAD SECTOR MODULE 

GO TO 1$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR 0 DEFINED BY BADSCT SUBROUTINE 

GO TO 18$ IF ERROR 

;USE ALL ZEROS DATA PATTERN 

;G0 GENERATE DATA BUFFER 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOUS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 


SEQ 0103 
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SEQ 0104 


020034 

020036 

020040 

020042 

1045 020046 

1046 

1047 

1048 020046 

1049 020054 

1050 020062 

1051 020070 

1052 020074 

1053 020100 

1054 020104 

1055 020110 

1056 020114 

1057 

1058 020120 
020124 
020126 
020130 
020132 

1059 020136 

1060 

1061 

1062 020136 

1063 020142 

1064 020146 

1065 

1066 

1067 020146 
020152 
020154 
020156 
020160 

1068 020164 

1069 

1070 

1071 020164 
020170 
020172 
020174 
020176 
020200 


000404 

000240 

104000 

000137 


013737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


020512 


001446 020514 
000000 001446 
000005 001412 
001555 
000006 
000034 
000032 
000000 
000200 

036004 


020512 


CLEAR CONTROLLER i SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI** OR ‘PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 31 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 18S IF ERROR 


; SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE OFF CYLINDER 


MOV RMDC0,19$ 

MOV fO.RMDCO 

MOV #SEEK!G0,RMCS10 

MOV #PUTINX.R2 

MOVB #RMDA.(R2)+ 

HOVB #RMDC.<82>+ 

MOVB #RM0F.(R2)+ 

MOVB #RMCS1,(R2)+ 

MOVB #200.<R2>+ 

JSP PC. PUT 

BR 4$ 


SAVE CYLINDER ADDRESS 
SEEK TO FIRST CYLINDER 
CHANGE COMMAND TO SEEK 
WRITE REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 18S IF ERROR 


1077 0< 

1078 O’ 


004737 035450 
004737 036356 


004737 035534 
000404 
000240 
104000 

000137 020512 


004737 044174 

000405 

000240 

104000 

004736 

000137 020512 


>13737 020514 001446 
>12737 000063 001412 


.•SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
J SR PC.GETSTS .'SETUP FOR STATUS 

JSR PC.TIMOUT .'WAIT FOR SEEK TO COMPLETE 

5$: 


;G0 READ SEEK STATUS 
JSR PC. GET 

BR 6$ 

NOP 

EMT 

JHP 18S 

6 $: 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


.•VERIFY THE RESULTS OF THE SEEK COMMAND 


PC.SEKSTS 

78 


PC.BCSPH 

i8i 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 


>12702 001560 
112722 000002 


.'SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

MOV 19$,RMDC0 .'RESTORE DISK ADDRESS 

riov #wh!go.rmcsio .WRITE HEADER AND DATA 

MOV #PUTINX+3.R2 .-EXTEND REGISTER INDEX TABLE 

ravB #RMwc.(R2>« 
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B 9 


SEO OIOS 


1079 020230 

112722 

000004 

MOVB 

#RMBA.(R2)* 
#RMCS1 ,(R2)* 

1080 020234 

112722 

000000 

NO VS 

1081 020240 

1082 

1083 020244 

112722 

000200 

MOVB 

#200, (R2>* 

004737 

036004 

JSR 

PC. PUT 

020250 

000404 


BR 

8$ 

020252 

000240 


NOP 


020254 

104000 


EMT 

18$ 

020256 

000137 

020512 

JMP 


1084 020262 

1085 

1086 

1087 020262 

1088 

1089 020266 
020272 
020274 
020276 
020300 

1090 020304 

1091 

1092 

1093 020304 
020310 
020312 
020314 
020316 
020320 

1094 020324 

1095 020324 
020330 
020332 
020334 
020336 
020340 

1096 020344 

1097 020344 
020350 
020352 
020354 
020356 
020360 

1098 020364 

1099 

1100 

118 

1103 


004737 

004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


1104 

1105 

1106 

1107 

1108 


m 

020400 
?0402 
>0404 
>0410 


036356 

035534 

020512 

036552 

020512 

051612 

020512 

037404 

020512 


8 $: 


020364 012737 


004737 

000404 

000240 

104000 

000137 


JSR 

PC.TIMOUT 

JSR 

PC. GET 

BR 

9$ 

NOP 


EMT 


JMP 

18$ 


9S: 

.-VERIFY RESULTS OF WRITE COMMAND 


10S: 


IIS: 


128: 


J SR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.PRIERR 

10* 


pc.acsp)* 

18 * 

PC.DTASTS 

IIS 


pc.a<sp>+ 

18* 

PC.SECER3 

12 * 


pc.acsp)* 

18* 


000053 001412 

MOV 

#WCH!60,RMCS10 

036004 

JSR 

PC.PUT 

13* 

BR 


NOP 



EMT 


020512 

JMP 

18$ 


13$: 


60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 18$ IF ERROR 


.-WAIT FOR COMMAND TO COMPLETE 

60 READ REGISTER(S) WITH 6ET SUBROUTINE 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED 8Y GET SUBROUTINE 

60 TO 18$ IF ERROR 


60 CHECK FOR PRIMARY ERRORS 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 

60 VERIFY RESULTS OF DATA TRANSFER 

60 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 


.-WRITE CHECK COMMAND 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 13$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR 0 DEFINED BY PUT SUBROUTINE 

;60 TO 18$ IF ERROR 


020410 004737 036356 


.'WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT .'WAIT FOR WRITE CHECK TO FINISH 
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SEO 0106 


1109 020414 


020424 

020426 

1110 020432 

1111 

1112 

1113 020432 
020436 
020440 
020442 
020444 
020446 

1114 020452 

1115 020452 
020456 
020460 
020462 
020464 
020466 

1116 020472 

1117 020472 
020476 
020500 
020502 
020504 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 


035534 


020512 


036552 


020512 

051612 


0-:0512 

037404 


020512 


020516 

020516 

020520 

020522 

020526 

020532 

020536 

1127 

1128 

1129 020544 

1130 020552 

1131 020560 

1132 020566 

1133 020566 

1134 020574 

1135 0206G2 

1136 

1137 


000004 

000240 

012706 

013700 

013701 

012737 


012737 

012737 

012737 

012737 

012737 

012737 


001100 

001276 

001466 

00(015 


001057 
001000 
on ooo 

177376 

101716 

000062 


; VERIFY THE 
JSR 


1118 020512 

1119 

1120 020512 

000401 

17$: 

18$: 

BR 

1121 

1122 020514 

000000 

19$: 

.WORD 

1123 

1124 020516 

1125 


20$: 


1126 


;;****< 

15 



.-•TEST 


PC. GET 
14i 


RESULTS OF WRITE 
PC.PRIERR 
15i 


PC.itSPH 

18i 

PC.DTASTS 

16i 


pc.a<sp>* 

isi 

PC.SECERR 

17i 


pc.a(sp>* 

isi 


GO READ REGISTER (S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 


CHECK OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 15$ IF NO ERROR 
; RETURN HERE IF ERROR 
; ERROR # DEFINED BY PRIERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 18$ IF ERROR 

;G0 VERIFY RESULTS OF DATA TRANSFER 
;G0 TO 16$ IF NO ERROR 
.-RETURN HERE IF ERROR 
; ERROR # DEFINED BY D7ASTS SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 18$ IF ERROR 


GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 


.•TEMPORARY STORAGE 


FORMAT EACH SECTOR ADDRESS 


TST15: 


001226 


001446 

001420 

001444 

001414 

001416 

001412 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


fSTACK.SP 

S8ASE.R0 

TSTQUE.R1 

#15,$T<!STN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.'SET TEST NUMBER IN APT MAIL BOX 


.-SETUP PARAMETERS FOR GENERATING DATA BUFFER 


MOV #559. .RMDCO 

MOV #TA2.RMDA0 

MOV #FNT16!SSEI.RN0F0 

1 $: 

NOV #-258.,RMWC0 

MOV fBUFONE.RMBAO 

MOV fWH.RMCSIO 

.■VERIFY THAT SECTOR IS NOT BAD 


.•CYLINDER = 559. 

.•TRACK = 2. SECTOR = 0 
; 16 BIT FORMAT 

;2 ♦ 256 WORDS (2’S COMP) 
.•DATA BUFFER ADDRESS 
.•WRITE HEADER AND DATA 


L 
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PC.BADSCT 

2 $ 

.SCTMSG 
16 S 

fRMDAO.$TMPO 
f 1 ,$TMP1 
PC.GENBUF 


D 9 


SEQ 0107 



0206(0 

004737 

032406 


JSR 


020614 

000405 



BR 


020616 

104401 

063446 


TYPE 


020622 

104000 



EMT 


020624 

000137 

021260 


JMP 

1138 

020630 




2$: 

1139 

020630 

012737 

001420 

001174 

MOV 

1140 

020636 

012737 

000001 

001176 

MOV 

1141 

020644 

004737 

034640 


JSR 

1142 

020650 




3$: 

1143 






1144 





.PREPARE DEVICE 

1145 

020t>50 

004737 

031456 


JSR 


020654 

154130 



.WORD 


CALL BAD SECTOR MODULE 

GO TO 2$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR » DEFINED BY BADSCT SUBROUTINE 

GO TO 16$ IF ERROR 

;USE SECTOR FOR DATA PA 1 TERN 

;G0 GENERATE DATA BUFFER 


FOR DATA TRANSFER 
PC.TSTPRP 
154130 



020656 

000404 



BR 

4$ 


020660 

000240 



NOP 



020662 

104000 



EMT 

16$ 

1146 

1147 

1148 

020664 

020670 

00C137 

021260 

4$: 

JMP 





.-SETUP 

AND EXECUTE WRITE HEADER 

1149 

020670 

012737 

000063 001412 


MOV 

fWH.'GO.RMCSIO 

1150 

020676 

012702 

001555 


MOV 

#PUTINX,R2 

1151 

020702 

112722 

000006 


MOVB 

#RMDA.(R2)+ 

1152 

020706 

112722 

000034 


MOVB 

#RMDC.(R2H 

1153 

020712 

112722 

000032 


MOVB 

#RM0F,(R2>* 

1154 

020716 

112722 

000002 


MOVB 

#RMWC.(R2)+ 

1155 

020722 

112722 

000004 


MOVB 

#RMBA. (R2) ♦ 
#RMCS1.(R2)+ 

1156 

020726 

112722 

000000 


MOVB 

1157 

020732 

112722 

000200 


MOVB 

#200.(R2)+ 

1158 







1159 

020736 

004737 

036004 


JSR 

PC, PUT 


020742 

000404 



BR 

5$ 


020744 

000240 



NOP 



020746 

104000 



EMT 

16$ 


020750 

000137 

021260 


JMP 

1160 

020754 



5$: 



1161 






REGISTER BUFFER FOR 

1162 




.-SETUP 

INPUT 

1163 

020754 

004737 

035450 


JSR 

PC.GETSTS 

1164 

020760 

004737 

036356 


JSR 

PC.TIMOUT 

1165 







11 06 

020764 

004737 

035534 


JSR 

PC. GET 


020770 

000404 



BR 

6$ 


020772 

000240 



NOP 



020774 

104000 



EMT 

16$ 


020776 

000137 

021260 


JMP 

1167 

021002 



6$: 



1168 







1169 




.-VERIFY RESULTS OF WRITE COMMAND 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE 8 VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER 8 SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ,, SKI M OR , T>IP , ‘ IS SET 

VERIFY RECALIBRATION 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 16$ IF ERROR 


; WRITE HEADER AND DATA 
; WRITE REGISTER INDEX TABLE 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
;G0 TO 5$ IF NO ERROR 
;RETURN HERE IF ERROR 
; ERROR # DEFINED BY PUT SUBROUTINE 
;G0 TO 16$ IF ERROR 


;WAIT FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 16$ IF ERROR 


E 9 


SEQ 0108 
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1170 


1171 

1172 


1173 

1174 


1175 

1176 

1177 

1178 

1179 

1180 
1181 


1182 

1183 

1184 

1185 

1186 
1187 


1188 

1189 

1190 

1191 


1192 

1193 


021002 

021006 

021010 

021012 

021014 

021016 

021022 

021022 

021026 

021030 

021032 

021034 

021036 

021042 

021042 

021046 

021050 

021052 

021054 

021056 

021062 


021062 

021070 

021076 

021102 

021104 

021106 

021110 

021114 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

C00405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


012737 

012737 

004737 

000404 

000240 

104000 

000137 


021 114 004737 


021120 

021124 

021126 

021130 

021132 

021136 


021136 
021142 
021144 
021146 
021150 
1152 
1156 
1156 
1162 
1164 



004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

m 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


036552 

021260 

051612 

021260 

037404 

021260 

000073 001412 
102722 001416 

036004 

021260 

036356 

035534 

021260 

036552 

021260 

051612 

021260 


7$: 


85: 


95: 


JSR 

8R 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC. PRIERR 

7* 


PC.a(SP)* 

16$ 

PC. DTASTS 
85 


pc.acsp)* 

i6i 

PC.SECERR 

95 


pc.acsp)* 

16 $ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 75 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 165 IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 85 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 165 IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 95 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 165 IF ERROR 


;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

MOV fRH.'GO.RMCSIO .'READ HEADER 8 DATA COMMAND 

MOV fBUFTWO.RMBAO .'CHANGE BUS ADDRESS 


105: 


JSR 

BR 

NOP 

EMT 

JMP 


PC.PUT 

10 $ 


165 


GO URITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 105 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

GO TO 165 IF ERROR 


.•WAIT FOR READ TO COMPLETE AND GET STATUS 


115: 

.•VERIFY 


JSR 

JSR 

BR 

NOP 

EMT 

JMP 


PC.TIMOUT 

PC, GET 

11$ 


165 


.•WAIT FOR READ TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 115 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 165 IF ERROR 


125: 


THE 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


RESULTS OF READ OPERATION 


PC.PRIERR 

12$ 


pc.bcsp)* 

16$ 

PC.DTASTS 

13$ 


pc.a<sp>+ 

16$ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 125 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 165 IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 135 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 165 IF ERROR 
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PC.SECERR 

Hi 


F 9 


1194 021176 



13$: 


1195 021176 

004737 

037404 


JSR 

021202 

000405 



BR 

021204 

000240 



NOP 

021206 

104000 



EMT 

021210 

004736 



JSR 

021212 

000137 

021260 


JMP 

1196 021216 



14$: 


1197 





1198 



.VERIFY 

DATA 

1199 021216 

004737 

035106 


JSR 


0 j 

o; 


’ll i 


J122 
021226 
021230 
021232 
021234 

1200 

1201 

1202 021240 

1203 021240 

1204 021244 

1205 021252 

1206 021254 

1207 021260 

1208 
1209 


101716 

102722 

000404 

000240 

1CK-000 

000137 


005237 

122737 

103402 

000137 


021260 


001420 

000037 

020566 


.WORD 

.WORD 

BR 

NOP 

EMT 

JMP 


PC.i(SP>+ 

16S 


PC.CMP8UF 

BUFONE 

BUFTUO 

15S 


16 S 


60 CHECK FOR SECONDARY ERRORS 

60 TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 16$ IF ERROR 


60 COMPARE WRITE, READ DATA BUFFERS 

STARTIN6 ADDRESS OF WRITE BUFFER 

STARTIN6 ADDRESS OF READ BUFFER 

60 TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPBUF SUBROUTINE 

60 TO 16$ IF ERROR 


001420 


.‘INCREMENT ADDRESS AND FORMAT NEXT SECTOR 
15 $: 


16$: 


INC 

RMDAO 

.'ADVANCE SECTOR COUNT 

CMPB 

#31 . ,RMDAO 

.‘DONE ALL SECTORS?? 

BLO 

16$ 

'YES 1 1 

■60 DO NEXT SECTOR 

JMP 

1$ 


.-•TEST 16 FORMAT EACH TRACK ADDRESS 



021260 

021260 

000004 




021262 

005240 

001100 



021264 

012706 



021270 

013700 

001276 



021274 

013701 

001466 

001226 


021300 

012737 

000016 

1210 





1211 





1212 

021306 

012737 

001060 

001446 

1213 

021314 

012737 

000000 

001420 

1214 

021322 

012737 

010000 

001444 

1215 

021330 




1216 

021330 

012737 

177376 

001414 

1217 

021336 

012737 

101716 

001416 

1218 

1219 

1220 

021344 

012737 

000062 

001412 

021352 

004737 

032406 



021356 

000405 




021360 

104401 

063446 



021364 

104000 




021366 

000137 

022022 


1221 

021372 



001174 

1222 

1223 

021372 

012737 

001420 

021400 

012737 

000001 

001176 

1224 

021406 

C04737 

034640 


1225 

021412 





TST16: 

SCOPE 

NOP 


; SCOPE CALL 
.•START OF TEST 


MOV 

#STACK,SP 

.‘INITIALIZE STACK POINTER 


MOV 

SBASE.RO 

;R0 - UNIBUS ADDRESS 


MOV 

TST0UE.R1 

;(R1> = DEVICE BEING TESTED 


MOV 

#16,$TESTN 

.‘.‘SET TEST NUMBER IN APT HAIL BOX 

.-SETUP 

PARAMETERS FOR GENERATING DATA BUFFER 

MOV 

#560.,RMDCO 

.•CYLINDER = 560. 


MOV 

#0, RMDAO 

.‘TRACK = 0. SECTOR = 0 

1$: 

MOV 

#FMT16.RM0F0 

; 16 BIT FORMAT 

MOV 

#-258. .RMWCO 

;2 ♦ 256 WORDS (2'S COMP) 


MOV 

#8UF0NE,RMBA0 

.’DATA BUFFER ADDRESS 


MOV 

#WH,RMCS10 

.•WRITE HEADER AND DATA 

.•VERIFY 

THAT 

SECTOR IS NOT BAD 

.‘CALL BAD SECTOR MODULE 

JSR 

PC.BADSCT 


BR 

2$ 

;G0 TO 2$ IF NO ERROR 


TYPE 

EMT 

.SCTMSG 

.TYPE BAD SECTOR MESSAGE 

.-ERROR # DEFINED BY BADSCT SUBROUTINE 

2$: 

JMP 

16$ 

;60 TO 16$ IF ERROR 

MOV 

MOV 

#RMDAO,$TMPO 
#1 ,$TMP1 

.-USE TRACK FOR DATA PATTERN 

3$: 

JSR 

PC.GENBUF 

;G0 GENERATE DATA BUFFER 


SEG 0109 


G 9 


SEQ 0110 
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1226 

1227 

1228 021 A 1 2 
02 1416 


004737 031456 
154130 


.•PREPARE DEVICE FOR DATA TRANSFER 


JSR 
.WORD 


PC.TSTPRP 
154130 


021420 

000404 


BR 

4$ 

021422 

000240 


NOP 


021424 

104000 


EMT 


021426 

000137 

022022 

JMP 

16$ 

1229 021432 



4$: 


1230 





1231 



.-SETUP AND EXECUTE WRITE HEADER 

1232 021432 

012737 

000063 001412 

MOV 

fWH'GO.RMCSIO 

1233 021440 

012702 

001555 

MOV 

#PUTINX,R2 

1234 021444 

112722 

000006 

MOVB 

#RMDA, (R2) ♦ 

1235 021450 

112722 

000034 

MOVB 

#RMDC.(R2>* 

1236 021454 

112722 

000032 

MOVB 

#RMOF.<R 2 )* 

1237 021460 

112722 

000002 

MOVB 

#RMWC.(R 2 )* 

1238 021464 

112722 

000004 

MOVB 

#RMBA.(R2>+ 

1239 021470 

112722 

000000 

MOVB 

#RMCS1,(R2)* 

1240 021474 

112722 

000200 

MOVB 

#200. (R 2>+ 

1241 





1242 021500 

004737 

036004 

JSR 

PC, PUT 

021504 

000404 


BR 

5$ 

021506 

000240 


NOP 


021510 

104000 


EMT 


021512 

0001 37 

022022 

JMP 

16$ 

1243 021516 



5$: 


1244 





1245 



.•SETUP INPUT 

REGISTER BUFFER FOR 

1246 021516 

004737 

035450 

JSR 

PC.GETSTS 

1247 021522 

004737 

036356 

JSR 

PC.TIMOUT 

1248 





1249 021526 

004737 

035534 

JSR 

PC, GET 

021532 

000404 


BR 

6$ 

021534 

000240 


NOP 


021536 

104000 


EMT 


021540 

000137 

022022 

JMP 

16$ 

1250 021544 



6$: 


1251 





1252 



; VERIFY RESULTS OF WRITE COMMAND 

1253 021544 

004737 

036552 

JSR 

PC. PRIERR 

021550 

000405 


BR 

7$ 

021552 

000240 


NOP 


021554 

104000 


EMT 


021556 

004736 


JSR 

PC.BCSP)* 

021560 

000137 

022022 

JMP 

I6i 

1254 021564 



7$: 


1255 021564 

004737 

051612 

JSR 

PC.DTASTS 

021570 

000*05 


BR 

8$ 

021572 

000240 


NOP 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE £ VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI" OR ’W IS SET 

VERIFY RECALIBRATION 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 16$ IF ERROR 


; WRITE HEADER AND DATA 
.•WRITE REGISTER INDEX TABLE 


60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINFD BY PUT SUBROUTINE 

GO TO 16$ IF ERROR 


.-WAIT FOR COMMAND TO COMPLETE 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 6$ IF NO ERROR 

.RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 16$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 8$ IF NO ERROR 
RETURN HERE IF ERROR 
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SEQ Oil 1 


021574 

021576 

021600 

1256 021604 

1257 021604 
021610 
021612 
021614 
021616 
021620 

1258 021624 

1259 

1260 

1261 021624 

1262 021632 

1263 

1264 021640 
021644 
021646 
021650 
021652 

1265 021656 

1266 

1267 

1268 021656 

1269 

1270 021662 
021666 
021670 
021672 
021674 

1271 021700 

1272 

1273 

1274 021700 
021704 
021706 
021710 
021712 
021714 

T275 021720 

1276 021720 
021724 
021726 
021730 
021732 
021734 

1277 021740 

1278 021740 
021744 
021746 
021750 
021752 


104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


012737 

012737 

004737 

000404 

000240 

104000 

000137 


022022 

037404 


022022 


PC.a(SP)* 

16 $ 

PC, SECERR 

9$ 


pc.acsp)* 

16 * 


ERROR * DEFINED BY DTASTS SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
60 TO 16S IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 9* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 16$ IF ERROR 


000073 001412 
102722 001416 

036004 


022022 


.-READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

MOV #RH ! 60. RMCS10 .’READ HEADER t DATA COMMAND 

MOV #8UFTWO.RMBAO ; CHAN6E BUS ADDRESS 


JSR PC. PUT 

BR 10$ 

NOP 
FMT 

JMP 16$ 


60 WRITE REGISTERS) WITH PUT SUBROUTINE 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 16$ IF ERROR 


004737 036356 


.•WAIT FOR READ TO COMPLETE AND GET STATUS 


021 754 
021760 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


035534 


022022 


036552 


022022 

051612 


022022 

037404 


022022 


PC.TIMOUT 

PC.GET 

ni 


.■VERIFY THE RESULTS OF READ 
JSR PC.PRIERR 

BR 12* 


PC.iCSP)* 

16i 

PC.D’ASTS 

13i 


pc.acsp)* 

16* 

PC. SECERR 
14* 


pc,a<sp>* 

16* 


.‘WAIT FOR READ TO COMPLETE 

.‘60 READ REGISTER(S) WITH GET SUBR0U1INE 

;G0 TO 11$ IF NO ERROR 

.■RETURN HERE IF ERROR 

.•ERROR » DEFINED BY GET SUBROUTINE 

;G0 TO 16$ IF ERROR 


OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 12$ IF NO ERROR 

.■RETURN HERE IF ERROR 

.■ERROR # DEFINED BY PRIERR SUBROUTINE 

,*60 BACK FOR MORE ERROR CHECKS 

;60 TO 16$ IF ERROR 

;G0 VERIFY RESULTS OF DATA TRANSFER 

;G0 TO 13$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY DTASTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;60 TO 16$ IF ERROR 

;60 CHECK FOR SECONDARY ERRORS 

;G0 TO 14$ IF NO ERROR 

; RE TURN HERE IF ERROR 

.•ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 16$ IF ERROR 


.VERIFY DATA 
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I 9 


1282 021760 
021764 
021766 
021770 
021772 
021774 
021776 


1283 

1284 

1285 

1286 


022002 
022002 

1287 022006 

1288 022014 
022016 
022022 


1289 

1290 

1291 

1292 


1306 

1307 

1308 

1309 

1310 

1311 



004737 035106 

101716 

102722 

000404 

000240 

104000 

000137 022022 


105237 001421 

123737 001421 001335 

101002 

000137 021330 


022022 

022022 

022024 

022026 

022032 

022036 

022042 

1293 

1294 

1295 022050 

1296 022056 

1297 022064 

1298 022072 

1299 022072 

1300 022100 

1301 022106 

1302 022114 

1303 
13<y. 

1305 022122 
022126 


000004 

000240 

012706 

013700 

013701 

012737 


013737 

112737 

012737 

012737 

012737 

012737 

012737 


004737 

154130 


000404 

000240 

104000 

000137 

012702 

112722 

112722 

112722 

112722 


JSR 

.WORD 

.WORD 

BA 

NOP 

ENT 

JNP 


PC , CNPBUF 
BUFONE 
BUFTWO 
158 


168 


GO COMPARE WRITE, READ DATA BUFFERS 

STARTING ADDRESS OF WRITE BUFFER 

STARTING ADDRESS OF READ BUFFER 

GO TO 158 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPBUF SUBROUTINE 

GO TO 168 IF ERROR 


.INCREMENT ADDRESS AND FORMAT NEXT TRACK 
1 58: 

INCB RMDAO+1 
CMPB RMDA0+1.LSTRK+1 
BHI 168 

JMP 18 

168: 


ADVANCE TRACK COUNT 
LAST TRACK ? 

YES' • 

GO DO NEXT SECTOR 


•TEST 17 


READ HEADER t DATA IN LAST SECTOR 


TST17: 


001100 

001276 

001466 

000017 


001334 

000036 

010000 

001060 

177376 

102722 

000073 


031456 


001226 


001420 

001420 

001444 

001446 

001414 

001416 

001412 


SCOPE 


.SCOPE CALL 

NOP 


.START OF TEST 

MOV 

#STACK,SP 

.‘INITIALIZE STACK POINTER 

MOV 

SBASE.RO 

;R0 = UNIBUS ADDRESS 

MOV 

TST0UE.R1 

;<R1) = DEVICE BEING TESTED 

MOV 

#17,8TESTN 

.-.’SET TEST NUMBER IN APT MAIL BOX 


.SETUP PARAMETERS FOR READING LAST SECTOR 


18: 


MOV 

M0V8 

MOV 

MOV 

MOV 

MOV 

MOV 


; PREPARE DEVICE 
JSR 
.WORD 


LSTRK.RMDAO 
#30. .RMDAO 
#FMT16.RM0F0 

#560. .RMDCO 
#-2 58..RMWC0 
#BUFTWO.RHBAO 
#RH!G0,RHCS10 


;SET LAST TRACK AND 
.-LAST SECTOR 
;16 BIT FORMAT 

LAST CYLINDER 
2 ♦ 256 WORDS <2*S COMP) 
DATA BUFFER ADDRESS 
READ HEADER AND DATA 


022374 

001555 

000006 

000034 

000032 

000004 


28: 


BR 

NOP 

EMT 

JMP 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 


FOR DATA TRANSFER 

PC.TSTPRP .-PREPARE DEVICE FOR TEST 

154130 .'TASK DESCRIPTOR AS FOLLOWS: 

.'SELECT DEVICE 8 VERIFY DEVICE AVAILABLE 
; CLEAR CONTROLLER t SELECT DEVICE 
.‘VERIFY CONTROLLER CLEAR OPERATION 
.•PACK ACKNOWLEDGE IF VOLUME NOT VALID 
.VERIFY PACK ACKNOWLEDGE 
.RECALIBRATE IF •’SKr OR ^IP" IS SET 
.VERIFY RECALIBRATION 
28 ;G0 TO 28 IF NO ERROR 

; RE TURN HERE IF ERROR 
.•ERROR # DEFINED BY TSTPRP SUBROUTINE 
;G0 TO 98 IF ERROR 


98 

#PUTINX,R2 

#RMDA,(R2)+ 

#RMDC,(R2)+ 

#RM0F.(R2H 

#RMBA,(R2)* 


.WRITE REGISTER INDEX TABLE 


SEQ 0113 
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1312 022166 

112722 

000002 

movb 

#RMWC.(R2>+ 

#RMCS1,(R2>* 

1313 022172 

112722 

000000 

NO 78 

1314 022176 

112722 

000200 

MOVB 

#200, CR2) ♦ 

1315 022202 

1316 

1317 



3$: 




.READ HEADER 

AND DATA OF LAST 

1318 022202 

004737 

036004 

JSR 

PC. PUT 

022206 

000404 


BR 

4$ 

022210 

000240 


NOP 


022212 

1040Q0 


EMT 

9$ 

022214 

000137 

022374 

JMP 

1319 022220 



4S: 



; TERMINATOR 


60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 9$ IF ERROR 


1322 022220 

004737 

035450 

JSR 

PC.GETSTS 

1323 022224 

1324 

1325 022230 

004737 

036356 

JSR 

PC.TIMOUT 

004737 

035534 

JSR 

PC. GET 

022234 

000404 


BR 

5$ 

022236 

022240 

022242 

000240 

104000 

000137 

022374 

NOP 

EMT 

JMP 

9$ 


1326 

1 327 

1328 

1329 022246 

1330 022246 

1331 022254 

1332 

1333 

1334 022256 
022262 
022264 
022266 
022270 
022272 

1335 022276 

1336 022276 
022302 
022304 
022306 
022310 
022312 

1337 022316 

1338 022316 
022322 
022324 
022326 


02 

1339 02 

1340 02 

1341 02 

1342 02 

1343 02 

1344 0 \ 

1345 0< 


032737 000040 001400 
001030 


JSR PC.TIMOUT .-WAIT FOR READ TO COMPLETE 

JSR PC, GET ;G0 READ REGISTER(S) WITH GET SUBROUTINE 

BR 5$ ;G0 TO 5$ IF NO ERROR 

NOP ; RE TURN HERE IF ERROR 

EMT ; ERROR # DEFINED BY GET SUBROUTINE 

JMP 9$ ; GO TO 9$ IF ERROR 

; CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 

;D0 NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 

$S: 

BIT #SSE,RMER2I ;IS ’SSE* BIT SET ? 

BNE 8$ ;BR IF YES 


022326 

022350 

022332 

022336 

022336 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

032737 

001013 

013737 

112737 

052737 

000137 


036552 


022374 

051612 


022374 

037404 


022374 

001000 001444 


001334 

000037 

m 


001420 

001420 

001444 


.-VERIFY THE RESULTS OF READ 
JSR PC.PRIERR 

BR 6S 


PC.a(SP)* 

9$ 

PC.DTASTS 

7$ 


pc.acsp)* 

9$ 

PC.SECERR 

8 $ 


pc.acsp)* 

9$ 

fSSEI.RMOFO 

9$ 

LSTRK.RMDAO 
#31. .RMDAO 
fSSEI.RMOFO 

IS 


BIT 

BNE 

MOV 

Move 

BIS 

JMP 


OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 6$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR # DEFINED BY PRIERR SUBROUTINE 

;60 BACK FOR MORE ERROR CHECKS 

;60 TO 9$ IF ERROR 

;G0 VERIFY RESULTS OF DATA TRANSFER 

;60 TO 7S IF NO ERROR 

.-RETURN HERE IF ERROR 

.•ERROR # DEFINED BY DTASTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

; GO TO 9$ IF ERROR 

;G0 CHECK FOR SE COM? ARY ERRORS 

;G0 TO 8S IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY SECERR SUBROUTINE 

;GQ BACK FOR MORE ERROR CHECKS 

;G0 TO 9$ IF ERROR 

;TEST 16 BIT MODE W/ SSEI SET ? 

'YES " 

•SET LAST TPACK AND 
.-LAST SECTOR 

;SET SSEI BIT IN OFFSET AND 
,-TEST AGAIN. 


K 9 


SEO 01 14 
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1346 022374 

1347 

1348 


022374 

022374 

022376 

022400 

022404 

022410 

022414 

1349 

1350 

1351 022422 

1352 022430 

1353 022436 

1354 022444 

1355 022444 

1356 022452 

1357 022460 

1358 022466 

1359 

1360 

1361 022474 
022500 


9$: 


•TEST 20 


READ HEADER 8 DATA U/ AOE ERROR 


000004 

000240 

012706 

013700 

013701 

012737 


013737 

112737 

012737 

012737 

012737 

012737 

012737 


004737 

154130 


TST20: 


001100 

001276 

001466 

00002C 


001334 

000036 

010000 

001060 

176774 

102722 

000073 


031456 


001226 


001420 

001420 

001444 

001446 

001414 

001416 

001412 


IS: 


.PREPARE DEVICE 
JSR 
.WORD 


SCOPE 


.SCOPE CALL 

NOP 


.•START OF TEST 

MOV 

f STACK, SP 

.•INITIALIZE STACK POINTER 

MOV 

SBASE.RO 

;R0 = UNIBUS ADDRESS 

MOV 

TST0UE.R1 

;(R1) - DEVICE BEING TESTED 

MOV 

#20.$TESTN 

;;SET TEST NUMBER IN APT MAIL BOX 

PARAMETERS FOR READING 2 

SECTORS STARTING WITH LAST SECTOR 

MOV 

LSTRK.RMDAO 

.-SET LAST TRACK AND 

MOVB 

#30. .RMDAO 

.•LAST SECTOR 

MOV 

#FMTi6,RM0F0 

;16 BIT FORMAT 

MOV 

#560. .RMDCO 

.-LAST CYLINDER 

MOV 

#-258.*2.RMWC0 

.READ 2 SECTORS 

MOV 

#8UFTW0,RMBA0 

.‘DATA BUFFER ADDRESS 

MOV 

#RH.'G0.RMCS10 

.-READ HEADER AND DATA 


FOR DATA TRANSFER 
PC.TSTPRP 
154130 



022502 

000404 


BR 

2$ 


022504 

000240 


NOP 



022506 

104000 


EMT 

88 


022510 

000137 

022746 

JMP 

1362 

022514 



2 S: 

#PUTINX,R2 

1363 

022514 

012702 

001555 

MOV 

1364 

022520 

112722 

000006 

MOVB 

#RMDA.(R2)+ 

1365 

022524 

112722 

000034 

MOVB 

#RMDC.(R2)+ 

1366 

022530 

112722 

000032 

MOVB 

#RM0F.(R2)+ 

1367 

022534 

112722 

000002 

MOVB 

#RMWC.(R2)+ 

1368 

022540 

112722 

1 •! * I 

MOVB 

#RMBA. (R2)+ 
#RMCSi,(R2)* 

1369 

022544 

112722 

000000 

MOVB 

1370 

022550 

112722 

000200 

MOVB 

#200. <R2>* 

1371 






1372 

022554 

004737 

036004 

JSR 

PC. PUT 


022560 

000404 


BR 

3$ 


022562 

000240 


NOP 



022564 

104000 


EMT 



022566 

000137 

022746 

JMP 

8$ 

1373 

022572 



3S: 


1374 





REGISTER BUFFER 

1375 




.SETUP INPUT 

1376 

022572 

004737 

035450 

JSR 

PC.GETSTS 

1377 

022576 

004737 

036356 

JSR 

PC.TIMOUT 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE 8 VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER 8 SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI*’ OR •IMP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 8$ IF ERROR 

.WRITE REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 8S IF ERROR 


.-WAIT FOR READ TO COMPLETE 
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L 


9 


SEQ 0115 


1378 

1379 


1380 

U81 

1382 

1383 

1384 

1385 

1386 

1387 

1388 


1389 

1390 


1391 

1392 


1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 


022602 

022606 

022610 

022612 

022614 


022620 

022620 

022626 


022630 

022634 

022636 

022640 

022642 

022644 

022650 

022650 

022654 

022656 

022660 

022662 

022664 

022670 

022670 

022674 

022676 

022700 

022702 

022704 

022710 

022710 

022716 

022720 

022726 

022734 

022742 

022746 


004737 

035534 



JSR 

PC.GfcT 

000404 




BR 

48 

000240 




NOP 


104000 




EHT 

8$ 

000137 

022746 



JMP 




.'CHECK 

TO SEE If 

: THIS SECTOR 




;D0 NOT 

4$: 

EXECUTE 

THIS TEST IN 

032737 

000040 

001400 


BIT 

#SSE.RMER2I 

001030 




BNE 

7$ 




.'VERIFY 

THE RESULTS OF READ 

004737 

036552 



JSR 

PC. PRIERR 

000405 




BR 

5$ 

000240 




NOP 


104000 




EMT 


004736 




JSR 

pc.atsp)* 

000137 

022746 


5$: 

JMP 

8$ 

004737 

051612 



JSR 

PC. DTASTS 

000405 




BR 

6$ 

000240 




NOP 


104000 




EMT 


004736 




JSR 

PC.a<SP>+ 

000137 

022746 


6$: 

JMP 

88 

004737 

037404 



JSR 

PC. SECERR 

000405 




BR 

78 

000240 




NOP 


104000 




EMT 


004736 




JSR 

PC.a<SP>* 

000137 

022746 


78: 

JMP 

88 

032737 

001000 

001444 


BIT 

#SSEI.RNOFO 

001013 




BNE 

88 

013737 

001334 

001420 


NOV 

LSTRK.RNDAO 

112737 

000037 

001420 


MOVB 

#31 . .RMDAO 

052737 

001000 

001444 


BIS 

#SSEI,RMOFO 

000137 

022444 



JMP 

18 


88 : 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 4$ IF NO ERROR 

.RETURN HERE IF ERROR 

.'ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 8$ IF ERROR 

WAS SKIP SECTORED FIRST. IF SO 
16 BIT FORMAT NODE 

;IS *SSE* BIT SET ? 

;BR IF YES 

OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 5$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 8$ IF ERROR 

;G0 VERIFY RESULTS OF DATA TRANSFER 

;G0 TO 6S IF NO ERROR 

.•RETURN HERE IF ERROR 

.'ERROR # DEFINED BY DTASTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 8$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 7$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 8$ IF ERROR 

.•TEST 16 BIT MODE «/ SSEI SET ? 

• YES " 

'SET LAST TRACK AND 
.-LAST SECTOR 

.’SET SSEI BIT IN OFFSET AND 
.'TEST AGAIN. 


• • *************************************************************** 
;*TEST 21 READ INVALID SECTOR ADDRESS 


; ; *************************************************************** 


022746 



TST21 : 




022746 

000064 



SCOPE 


.'SCOPE CALL 

022750 

000240 



NOP 


; START OF TEST 

022752 

012706 

001100 


MOV 

#STACK.SP 

.'INITIALIZE STACK POINTER 

022756 

013700 

001276 


MOV 

8BASE.R0 

;R0 = UNIBUS ADDRESS 

022762 

013701 

001466 


MOV 

TSTQUE.R1 

;(R1) = DEVICE BEING TESTED 

022766 

1 / AT 

012737 

000021 

001226 

MOV 

#21 .8TESTN 

;;SET TEST NUMBER IN APT MAIL BOX 

1*0.5 

1404 022774 

012737 

001057 

001446 

MOV 

#559. .RNDCO 

; CYLINDER = 559. 

1405 023002 

012737 

001036 

001420 

MOV 

#TA2! 30.. RMDAO 

.'TRACK = 2, INVALID SECTOR = 30. 

1406 023010 

012737 

000000 

001444 

MOV 

fO.RMOFO 

; 18 BIT FORMAT 


M 9 
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SEQ 0116 


1407 02 ’016 

1408 023024 

1409 023032 

1410 023040 

1411 

1412 

1413 023040 
023044 


012737 

012737 

012737 


004737 

154130 


177376 

101716 

000073 


031456 


001414 

001416 

001412 


1 $: 


NOV #-258. .RMWCO 
NOV #8UF0NE,RMBA0 
NOV #RH1G0,RMCS10 


2 ♦ 256 WORDS (2’S CONP) 
DATA SUFFER ADDRESS 
READ HEADER AND DATA 


. PREPARE DEVICE FOR DATA TRANSFER 


JSR 
.WORD 


PC. TSTPRP 

154130 



023046 

000404 



BR 

2$ 


023050 

000240 



NOP 

i 


023052 

104000 



EMT 

9$ 

1414 

1415 

1416 

023054 

023060 

000137 

023310 

2$: 

JMP 





.•SETUP 

AND EXECUTE READ HEADER AJ 

1417 

023060 

012702 

001555 


MOV 

#PUTINX,R2 

1418 

023064 

112722 

000006 


MOVB 

#RMDA.(R2)+ 

1419 

023070 

112722 

000034 


MOVB 

#RMDC.(R2)+ 

1420 

023074 

112722 

000032 


MOVB 

#RM0F.(R2)+ 

1421 

023100 

112722 

000002 


MOVB 

#RMWC.(R2)+ 

1422 

023104 

112722 

000004 


MOVB 

#RMBA.(R2)+ 

#RMCS1,(R2H 

1423 

023110 

112722 

000000 


MOVB 

1424 

023114 

112722 

000200 


MOVB 

#200. (R2>* 

1425 







1426 

023120 

004737 

036004 


JSR 

PC. PUT 


023124 

000404 



BR 

3$ 


023126 

000240 



NOP 



023130 

104000 



EMT 


1427 

1428 

1429 

023132 

023136 

000137 

023310 

3$: 

JMP 

9$ 




.‘SETUP 

INPUT 

REGISTER BUFFER FOR 

1430 

023136 

004737 

035450 


JSR 

PC.GETSTS 

1431 

023142 

004737 

036356 


JSR 

PC.TIMOUT 

1432 







1433 

023146 

004737 

035534 


JSR 

PC. GET 


023152 

000404 



BR 

4$ 


023154 

000240 



NOP 



023156 

104000 



EMT 



023160 

000137 

023310 


JMP 

9$ 

1434 

023164 



4$: 



1435 







1436 




.•VERIFY RESULTS OF READ COMMAND 

1437 

023164 

004737 

036552 


JSR 

PC. PRIERR 


023170 

000405 



BR 

5$ 


023172 

000240 



NOP 



023174 

104000 



EMT 



023176 

0C4736 



JSR 

pc.acsp)* 


023200 

000137 

023310 


JMP 

9$ 

cm 

00 

023204 



5$: 




PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE 8 VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER 8 SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR *T>IP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 


.’LOAD REGISTER INDEX TABLE 


;SET TERMINATOR BYTE 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 3$ IF NO ERROR 

.‘RETURN HERE IF ERROR 

.‘ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 9$ IF ERROR 


.’WAIT FOR COMMAND TO COMPLETE 

;G0 READ RESISTER(S) WITH GET SUBROUTINE 

;G0 TO 4$ F NO ERROR 

.•RETURN HE It IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 9$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 


N 9 
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SEQ 0117 


1439 023204 
023210 
023212 
023214 
023216 
023220 

1440 023224 

1441 023224 
023230 
023232 
023234 
023236 
023240 

1442 023244 

1443 

1444 

1445 023244 

1446 023250 

1447 023256 

1448 

1449 023260 

1450 023266 

1451 023270 

1452 023276 

1453 023304 

1454 

1455 023310 

1456 

1457 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


005237 

023727 

101412 

032737 

001010 

012737 

012737 

000137 


051612 

JSR 

PC. DTASTS 

BR 

6$ 


NOP 



EMT 



JSR 

PC.8(SP)+ 

023310 

JMP 

9$ 


6$: 


037404 

JSR 

PC, SECERR 

BR 

7$ 


NOP 



EMT 



JSR 

pc.aisp)* 

023310 

JMP 

9$ 


7S: 


60 VERIFY RESULTS OF DATA TRANSFER 

SO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

SO BACK FOR MORE ERROR CHECKS 

60 TO 9$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 7S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 9S IF ERROR 


; INCREMENT ADDRESS AND FORMAT NEXT SECTOR 

.-ADVANCE SECTOR COUNT 

.-DONE YET ? 

;N0 - TEST NEXT SECTOR 

.-TEST 16 BIT MODE VET ? 

-YES " 

•TRACK'* 2. INVALID SECTOR = 31, 
.‘SET 16 BIT MODE IN OFFSET AND 
.-TEST AGAIN. 


001420 


INC 

RMDAO 

001420 

000100 

CMP 

RMDA0,#64. 



BLOS 

8$ 

010000 

001444 

BIT 

#FMT16,RM0F0 


BNE 

9$ 

001037 

001420 

MOV 

#TA2!31.,RMD/ 

010000 

001444 

MOV 

#F MT16.RM0F0 

023040 

8$: 

JMP 

1$ 


9S: 


;;*** „ 
;*TEST 22 


023310 




TST22: 


023310 

000004 



SCOPE 

• 

023312 

000240 



NOP 


023314 

012706 

001100 


MOV 

#STACK,SP ; 

023320 

013700 

001276 


MOV 

J8ASE.R0 ;l 

023324 

013701 

001466 


MOV 

TSTQUE.R1 

023330 

012737 

000022 

001226 

MOV 

#22,$TESTN 

1458 

1459 023336 

012737 

001057 

001446 

MOV 

#559. .RMDCO ; 

1460 023344 

013737 

001334 

001420 

MOV 

LSTRK.RMOAO 

1461 023352 

105237 

001421 


1NCB 

RMDAO+1 

1462 023356 

012737 

010000 

001444 

MOV 

#FMT16,RM0F0 

1463 023364 

012737 

177376 

001414 

MOV 

#-258. .RMWCO 
#8UF0N§,RMBA0 ; 

1464 023372 

012737 

101716 

001416 

MOV 

.**65 023400 

012737 

000073 

001412 

MOV 

#RH! 60.RMCS10 ; 

1466 023406 

1467 

1468 




1 J: 





.-PREPARE DEVICE 

FOR DATA TRANSFER 

1469 023406 

004737 

031456 


JSR 

PC.TSTPRP 

154130 

023412 

154130 



.WORD 


READ INVALID TRACK ADDRESS 
*************************************************************** 

SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
(R1) = DEVICE BE1N6 TESTED 
.-SET TEST NUMBER IN APT MAIL BOX 

CYLINDER = 559. 

LOAD LAST TRACK. SECTOR = 0 
INCREMENT TO FIRST INVALID TRACK 
16 BIT FORMAT 
2 ♦ 256 WORDS (2'S COMP) 

DATA BUFFER ADDRESS 
READ HEADER AND DATA 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF '‘SKr* OR *WP" IS SET 



B 10 


SEQ 0118 
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023414 

023416 

023420 

023422 

1470 023426 

1471 

1472 

1473 023426 

1474 023432 

1475 0?3436 

1476 Cc~'442 

1477 0234*6 

1478 023452 

1479 023456 

1480 023462 

1481 

1482 023466 
023472 
023474 
023476 
023500 

1483 023504 

1484 

1485 

1486 023504 

1487 023510 

1488 

1489 023514 
023520 
023522 
023524 
023526 

1490 023532 

1491 


000404 

000240 

104000 

000137 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 

004737 

004737 

000404 

000240 

104000 

000137 





.-VERIFY RECALIBRATION 


BR 

2$ 

.GO TO 2$ IF NO ERROR 


NOP 


; RE TURN HERE IF ERROR 


EMT 


; ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

023632 

JMP 

8$ 

;G0 TO 8S IF ERROR 


001555 

000006 

000034 

000032 

000002 

000004 

000000 

000200 

036004 


023632 


035450 

036356 

035534 


023632 


2S: 

.-SETUP AND EXECUTE READ HEADER AND DATA COMMAND 


3$: 


MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 


0PUTINX.R2 
0RMDA, (R2) + 
«RMDC,(R2)+ 
*RM0F,<R2)* 
#RMUC.(R2>* 
#RMBA.(R2>+ 
#RMCS1,(R2>* 
*200.<R2>* 

PC, PUT 

3$ 


8 $ 


.-READ REGISTER INDEX TABLE 


;SET TERMINATOR BYTE 


GO URITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 


.-SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC.GETSTS 

JSR PC.TIMOUT .-WAIT FOR COMMAND TO COMPLETE 


4$: 


JSR 

BR 

NOP 

EMT 

JMP 


PC, GET 

4$ 


8 $ 


OF READ COMMAND 


1493 023532 

004737 

036552 


JSR 

PC, PRIERR 

023536 

000405 



BR 

5$ 

023540 

000240 



NOP 


023542 

104000 



EMT 


023544 

004736 



JSR 

pc,a<sPH 

023546 

000137 

023632 


JMP 

8$ 

1494 023552 

1495 023552 

004737 

051612 

5$: 

JSR 

PC. DTASTS 

023556 

000405 



BR 

6$ 

023560 

000240 



NOP 


023562 

104000 



EMT 


023564 

004736 



JSR 

PC.BtSP)* 

023566 

000137 

023632 


JMP 

8S 

1496 023572 

1497 023572 

004737 

037404 

6$: 

JSR 

PC, SECERR 

023576 

000405 



BR 

7$ 

023600 

000240 



NOP 


023602 

104000 



EMT 


023604 

004736 



JSR 

pc,a<s p>+ 

023606 

000137 

023632 


JMP 

8$ 

1498 023612 



7$: 




GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

60 VERIFY RESULTS OF DATA TRANSFER 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8S IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8S IF ERROR 


C 10 


SEQ 0119 
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1499 

1500 

1501 023612 

1502 023616 

1503 023624 

1504 023626 

1505 023632 

1506 

1507 


023632 

023632 

023634 

023636 

023642 

023646 

023652 

1508 

1509 023660 

1510 023666 

1311 023674 

.512 023702 

1513 023710 

1514 023716 

1515 023724 

1516 

1517 

1518 023724 
023730 


1519 

1520 

1521 


15J 

15; 


1530 

1531 


105237 

001421 

INCB 

123727 

001421 OC 700 

CMPB 

101002 


BHI 

000137 

023406 

8S: 

JMP 


; INCREMENT ADDRESS AND FORMAT NEXT TRACK 
RNDA0+1 
RMDA0+1 ,#128. 

8 $ 

1* 


ADVANCE TRACK COUNT 
DONE ALL TRACKS?? 
YES' 1 

GO DO NEXT TRACK 


•TEST 23 


READ INVALID CYLINDER ADDRESS 


TST23: 


000004 



SCOPE 


000240 



NOP 


012706 

001100 


MOV 

#STACK.SP ; 

013700 

001276 


MOV 

S8ASE.R0 

013701 

001466 


MOV 

TST0UE.R1 

012737 

000023 

001226 

MOV 

#23,$TESTN 

012737 

001061 

001446 

MOV 

#561 . .RMDCO 

012737 

000000 

001420 

MOV 

#O.RMDAO 

012737 

010000 

001444 

MOV 

#FMT16,RM0F0 

012737 

177376 

001414 

MOV 

#-2 58..RMWCO 

012737 

101716 

001416 

MOV 

#8UF0NE.RMBA0 ; 

012737 

000073 

001412 

MOV 

#RH!G0.RMCS10 ; 




1$: 





.PREPARE DEVICE 

FOR DATA TRANSFER 

004737 

031456 


JSR 

PC. TSTPRP 

154130 



.WORD 

154130 


023732 

000404 


BR 

2$ 

023734 

000240 


NOP 


023736 

104000 


EMT 


023740 

000137 

024150 

JMP 

8$ 

023744 



2$: 





.‘SETUP AND EXECUTE READ HEADI 

023744 

0127C2 

001555 

MOV 

#PUTINX,R2 

023750 

112722 


MOVB 

#RMDA,(R2)* 

023754 

112722 

000034 

MOVB 

#RMDC,(R2>* 

023760 

112722 

000032 

MOVB 

#RWOF,(R 2>* 

023764 

112722 


MOVB 

#RMWC.(R2)+ 

023770 

112722 


mm 

#RMBA.(R2)+ 

023774 

112722 

VililililtliBMi 

MOV 8 

#RMCS1.(R2>* 

024000 

112722 

000200 

MOVB 

#200, (R2)* 

024004 

004737 

036004 

JSR 

PC, PUT 

024010 

000404 


BR 

3$ 

024012 

000240 


NOP 


024014 

104000 


EMT 



RT OF TEST 
INITIALIZE STACK POINTER 
= UNIBUS ADDRESS 
(R1) = DEVICE BEING TESTED 
;SET TEST NUMBER IN APT MAIL BOX 


♦ 256 WORDS (2'S COMP) 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF “SKI" OR '^IP" IS SET 

VERIFY RECALIBRATION 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 8$ IF ERROR 


.LOAD REGISTER INDEX TABLE 


;SET TERMINATOR BYTE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 
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ScQ 0120 


024016 

000137 

024150 

JMP 

8S 

1532 024022 



3$: 


’533 





1534 



.•SETUP INPUT 

REGISTER BUFi 

1535 024022 

004737 

035450 

JSR 

PC.GETSTS 

1536 024026 

004737 

036356 

JSR 

PC.TIMOUT 

1537 





1538 024032 

004737 

035534 

JSR 

PC. GET 

024036 

000404 


BR 

4$ 

024040 

000240 


NOP 


024042 

104000 


EMT 


024044 

000137 

024150 

JMP 

8$ 


1539 024050 

1540 

1541 

1542 024050 
024054 
024056 
024060 
024062 
024064 

1543 024070 

1544 024070 
024074 
024076 
024100 
024102 
024104 

1545 024110 

1546 024110 
024114 
024116 
024120 
024122 
024124 

1547 024130 

1548 

1549 

1550 024130 

1551 024134 

1552 024142 

1553 024144 

1554 024150 


;G0 TO 8$ IF ERROR 


;WAIT FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) UITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


005237 

023727 

103002 

000137 


036552 


024150 

051612 


024150 

037404 


024150 


001446 

001446 

023724 


.•VERIFY RESULTS 
JSR 


OF READ COMMAND 
PC.PRIERR 

5$ 


pc.acsp)* 

8$ 

PC.DTASTS 

6 $ 


PC.BCSPH 

8 $ 

PC.SECERR 

7$ 


PC,a(SP)+ 

8 $ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

SO TO 8$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8S IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8S IF ERROR 


.’INCREMENT ADDRESS AND FORMAT NEXT CYLINDER 


002000 


RMDCO 

RNDC0.#1024. 

88 

1$ 


.•ADVANCE CYLINDER COUNT 
.’DONE ALL CYLINDERS?? 
’YES' 1 

•GO DO NEXT SECTOR 





;;****' 

;*TEST 

24 

FORMAT AT OFFSET 


024150 

024150 

000004 


# « * , 
TST24: 

SCOPE 


•SCOPE CALL 

024152 

000240 



NOP 


•START OF TEST 

024154 

012706 

001100 


MOV 

JSTACK.SP 

INITIALIZE STACK POINTER 

024160 

013700 

001276 


NOV 

SBASE.RO 

;R0 = UNIBUS ADDRESS 

024164 

013701 

001466 


MOV 

TST0UE.R1 

(R1) = DEVICE BEING TESTED 

024170 

012737 

000024 001226 


NOV 

#24,$TESTN 

;;SET TEST NUMBER IN APT MAIL BOX 


1557 

1558 

1559 024176 


012737 001057 001446 


.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 

MOV #559. .RMDCO .’CYLINDER = 559. 


I 
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SEQ 0121 


1560 024204 

1561 024212 

1562 024220 

1563 024226 

1564 024234 

1565 

1566 

024242 

024246 

024250 

024254 

024256 

1567 024262 

1568 024262 

1569 G24270 

1570 024276 

1571 024302 

1572 

1573 

1574 024302 
024306 


012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


004737 

154130 


024310 

024312 

024314 


1575 024322 

1576 

1577 

1578 024322 

1579 024330 

1580 024334 

1581 024340 

1582 024344 

1583 024350 

1584 024354 

1585 

1586 024360 
024M4 
024356 
024370 
024372 

1587 024376 

1588 

1589 

1590 024376 

1591 024404 

1592 024410 

1593 024414 

1594 924420 

1595 024424 


001000 001420 NOV #TA2.RNDA0 

010000 001444 NOV #FNT16,RN0F0 

177376 001414 NOV #- 258..RNWCO 

101716 001416 NOV #BUFONE.RNBAO 

000063 001412 NOV #WH!G0.RNCS10 

; VERIFY THAT SECTOR IS NOT BAD 


TRACK = 2, SECTOR = 0 
16 BIT FORMAT 
2 * 256 WORDS <2'S COMP) 
DATA BUFFER ADDRESS 
WRIiE HEADER AND DATA 


032406 



JSR 

PC.8ADSCT 

.-CALL BAD SECTOR MODULE 



BR 

1$ 

;G0 TO 1$ IF NO ERROR 

063446 



TYPE 

.SCTMSG 

.‘TYPE BAD SECTOR MESSAGE 



EMT 


.•ERROR # DEFINED BY BADSCT SUBROUTINE 

025062 


1$: 

JMP 

17$ 

;G0 TO 17$ IF ERROR 

001420 

001174 

NOV 

#RMDAO.$TMPO 

.‘USE SECTOR FOR DATA PATTERN 

000001 

001176 


MOV 

#1 ,$TMP1 


034640 

2$: 

JSR 

PC.GENBUF 

;G0 GENERATE DATA BUFFER 



031456 


.PREPARE DEVICE FOR DATA TRANSFER 


JSR 

.WORD 


PC.TSTPRP 

154130 


000404 

000240 

104000 

000137 025062 


012737 000015 001412 
012702 001555 
112722 000006 
112722 000034 
112722 000032 
112722 000000 
112712 000200 

004737 036004 
000404 


000240 
104000 

000137 025062 


012737 000063 001412 
012702 001555 
112722 O0HOO2 
112722 000004 
112722 000000 
112722 000200 


BR 

3$ ; 

NOP 


EMT 


JMP 

17$ ; 

DEVICE 

FOR WRITE 

MOV 

#0FFSET!G0.RMCS1G 

MOV 

#PUTINX.R2 

MO VS 

#RMDA.(R2)+ 

H0V8 

#RNDC.(R2H 

NOVB 

#RN0F,(R2)* 

MO VS 

#RNCS1.(R2H 

NOVB 

#200. (R2) 

JSR 

PC .PUT 

BR 

4$ 

NOP 


EMT 


JMP 

17$ 

AND EXECUTE WRITE HEADER A 

NOV 

fWH'GO.RHCSIO 

MOV 

#PUTINX.R2 

NOVB 

#RNWC.(R2>* 

NOVB 

#RMBA. (R2)+ 

NOVB 

#RNCS1.(R2>* 

MCVB 

#200. <R2>* 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE l VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF V SKI** OR 'PIP IS SET 

VERIFY RECALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERF IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 17$ IF ERROR 


.‘CHANGE TO OFFSET COMMAND 
.•WRITE PUT INDEX TABLE 


.-TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 17$ IF ERROR 


; WRITE HEADER AND DATA COMMAND 
.•WRITE REGISTER INDEX TABLE 


r 


F 10 


Vfc'i 

T24 


SEO 0122 


* 

FORMAT 

AT OFFSET 



1596 

1597 

024430 

004737 

036004 

JSR 

PC. PUT 


024434 

000404 


BR 

5$ 


024436 

000240 

104000 


NOP 



024440 


EHT 

17$ 


024442 

000137 

025062 

JHP 

1598 

1599 

1600 

024446 



5$: 





; SETUP INPUT 

REGISTER BUFFER 

1601 

024446 

004737 

035450 

JSR 

PC.GETSTS 

1602 

1603 

1604 

024452 

004737 

036356 

JSR 

PC.TIHOUT 

024456 

004737 

035534 

JSR 

PC. GET 

024462 

000404 


BR 

6$ 


024464 

000240 


NOP 



024466 

104000 


EHT 

17$ 


024470 

000137 

025062 

JHP 

1605 

024474 



6$: 



1606 

1607 

1608 024474 
024500 
024502 
024504 
024506 
024510 

1609 024514 

1610 024514 
024520 
024522 
024524 
024526 
024530 

1611 024534 

1612 024534 
024540 
024542 
024544 
024546 
024550 

1613 024554 

1614 

1615 024554 

1616 024562 

1617 024 5m 

1618 024572 

1619 024576 

1620 024602 

1621 024606 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

1040Q0 

004736 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 



036552 

025062 

051612 

025062 

037404 

025062 


000015 

001555 

000006 

000034 

000032 

000000 

000200 

036004 


025062 


; VERIFY 


7$: 


8 $: 


001412 


9$: 

.OFFSET 


10S: 


RESULTS 

JSR 

BR 

NOP 

EHT 

JSR 

JAP 

JSR 

BR 

NOP 

EHT 

JSR 

JHP 

JSR 

BR 

NOP 

EHT 

JSR 

JHP 

DEVICE 

NOV 

nov 

H0V8 

H0V8 

H0V8 

HOVB 

H0V8 

JSR 

BR 

NOP 

EHT 

JHP 


OF WRITE COHHAND 
PC.PRIERR 

7$ 


PC.8(SP>* 

17i 

PC.DTASTS 

8$ 


pc.a(sp)* 

i7i 

PC.SECERR 

9$ 


PC. 8(SP)* 
17i 


GO WRITE REGISTER(S> WITH PUT SUBROUTINE 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 17$ IF ERROR 


.-WAIT FOR COHHAND TO COHPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 17$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR HORE ERROR CHECKS 

GO TO 17$ IF ERROR 

60 VERIFY RESULTS OF DATA TRANSFER 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR HORE ERROR CHECKS 

GO TO 17$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 17$ IF ERROR 


FOR READ 

fOFFSETJGC.RHCSIO 

#PUTINX.R2 

#RMDA.(R2>+ 

#RHDC,(R2)* 

#RM0F.(R2H 

#RHCS1,(R2)* 

#200.(62)* 


.-CHANGE TO OFFSET COHHAND 
.•WRITE PUT INDEX TABLE 


PC -PUT 

ioi 


17 $ 


60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 17$ IF ERROR 
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6 10 


SEO 0123 


1626 

1627 

1628 

1629 

1630 

1631 


024630 
024636 
024644 
024650 
024654 

1632 024660 

1633 024664 

1634 

1635 024670 
024674 
024676 
024700 
024702 

1636 024706 

1637 

1638 

1639 024706 

1640 

1641 024712 
024716 
024720 
024722 
024724 

1642 024730 

1643 

1644 

1645 024730 
024734 
024736 
024740 
024742 
024744 

1646 024750 

1647 024750 
024754 
024756 
024760 
024762 
024764 

1648 024770 

1649 024770 
024774 
024776 
025000 
025002 
025004 
025010 


1650 

1651 

1652 

1653 


025010 
025014 
02501 
0250, 
025022 
025024 
025026 



004737 

000404 

000240 

104000 

000137 


000073 001412 

102722 001416 

001555 

000002 

000004 

000000 

000200 

036004 


025062 


;READ HEADER AND DATA AT OFFSET 


004737 036356 

004737 035534 
000404 
000240 
104000 

000137 025062 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

0OC240 

104000 

004736 

000137 



MOV 

#RH!60.RMCS10 

MOV 

48UFTW0.RMBA0 

MOV 

IPUTINX.R2 

#RMWC.(R2)+ 

MOVB 

MOVB 

#RMBA. (R2)+ 
#RHCSl.(R2>* 

MOVB 

MOVB 

#200,CR2>+ 

JSR 

PC.PUT 

ni 

BR 

NOP 


EMT 


JMP 

17$ 

11$: 


.•WAIT FOR READ 

TO COMPLETE AND 

JSR 

PC.TIMOUT 

JSR 

PC. GET 

BR 

12$ 

HOP 


EMT 


JMP 

17$ 


12 $: 

.•VERIFY THE 


000240 

104000 


036552 


JSR 

BR 

NOP 

EMT 

JSR 

025062 

13$: 

JMP 

051612 


JSR 

BR 

NOP 

EMT 

JSR 

025062 

14$: 

JMP 

037404 


JSR 

BR 

NOP 

EMT 

JSR 

025062 

15$: 

JMP 


.•VERIFY 

DATA 

035106 


JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

025062 


JMP 


RESULTS OF READ 
PC.PRIERR 
13i 


pc.a(sp)* 

i7i 

PC.DTASTS 

14$ 


pc.a(sp)* 

i7i 

PC.SECERR 

i5i 


pc.a<sp>+ 

i7i 


PC.CMP8UF 

BUFONE 

BUFTWO 

16 $ 


17 $ 


.-READ HEADER $ DATA COWHAND 
.‘CHANGE BUS ADDRESS 
.•WRITE PUT INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY PUT SUBROUTINE 

GO TO 17$ IF ERROR 


.•WAIT FOR READ TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

60 TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 17$ IF ERROR 


OPERATION 

GO CHECK FOR PRIMARY ERRORS 
60 TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR « DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 17$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 17$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECFRR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 17$ IF ERROR 


GO COMPARE WRITE. READ DATA BUFFERS 

STARTING ADDRESS OF WRITE BUFFER 

STARTING ADDRESS OF READ BUFFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPBUF SUBROUTINE 

GO TO 17$ IF ERROR 


H 10 


CZRNEAO 
T 24 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 


1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 


1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 


1681 

1682 

1683 

1684 
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SEO 0124 


025032 

025032 032737 
025040 001010 


025062 


025062 

025062 

025064 

025066 

025072 

025076 

025102 


025110 

025116 

025124 

025132 

025140 

025146 


025154 

025160 

025162 

025166 

025170 

025174 

025174 

025202 

025210 

025214 


025214 

025220 


000004 

000240 

012706 

013700 

013701 

012737 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


025222 000404 
025224 000240 


025 
025. 
025234 


16S: 


000200 

001444 

BIT 

BNE 

BIS 

MOV 

000200 

101716 

001444 

001416 

024302 


JMP 


17$: 


#OFD.RMOFO 

17 $ 

fOFD.RMOFO 

ffiUFONE.RMBAO 

2 $ 


.’DONE BOTH OFFSETS?? 
‘YES' 1 

■SET' FORWARD OFFSET 
.■CHANGE DATA BUFFER 


*TES T 25 


IVC FORMAT TEST 


TST25: 


001100 

001276 

001466 

000025 


001057 

001000 

010000 

177376 

101716 

000062 


032406 

063446 

C25704 

001420 

000001 

034640 


001226 


001446 

001420 

001444 

001414 

001416 

001412 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


fSTACK.SP 

SBASE.RO 

TST0UE.R1 

#25,$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 


001174 

001176 


; VERIFY 


1 $: 


2 $: 


MOV A559..RMDCO 

MOV ATA2.RMDA0 

MOV #FMT16,RM0F0 

MOV #-258. .RMWCO 

MOV fBUFONE.RMBAO 
MOV #UH,RMCS10 

THAT SECTOR IS NOT BAD 
JSR PC.BADSCT 

BR 1$ 

TYPE .SCTMSG 

EMT 

JMP 16$ 

MOV #RMDAO.$TMPQ 

MOV #1 ,$TMP1 

JSR PC.GENBUF 


CYLINDER = 559. 

TRACK = 2. SECTOR = 0 
16 BIT FORMAT 
2 ♦ 256 WORDS (2’S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


.-CALL BAD SECTOR MODULE 

;G0 TO 1$ IF NO ERROR 

.TYPE BAD SECTOR MESSAGE 

.•ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 16$ IF ERROR 

.-USE SECTOR FOR DATA PATTERN 

;G0 GENERATE DATA BUFFER 


004737 031456 
154130 


.PREPARE DEVICE FOR DATA TRANSFER 


JSR 
.WORD 


PC.TSTPRP 
15*130 


104000 

000137 025704 


3$: 


BR 

NOP 

EMT 

JMP 


3$ 


16 $ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE . 

RECALIBRATE IF , *SKI , ‘ OR *T*IP IS SET 

VERIFY RECALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 16$ IF ERROR 


025234 012737 000001 001436 


.•RESET VOLUME VALID BY SETTING AND RESETTING DIAGNOSTIC MODE 
MOV #DMD.RMMR10 ;SET DIAGNOSTIC MODE 


SEQ 0125 
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I 10 


1685 

025242 

112737 

000024 

001 555 

MO VS 

#RMMR1 .PUT I NX 

1686 

1687 

1 6*8 

025250 

112737 

0002*0 

001556 

MOVB 

#200.PUTINX*1 

025256 

004737 

036004 


JSR 

PC, PUT 


025262 

000404 



BR 

4$ 


025264 

000240 



NOP 



025266 

104000 



EMT 

16$ 


025270 

000137 

025704 


JMP 

1689 

025274 



4$: 




.WRITE REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 16$ IF ERROR 


1690 


1692 

025274 

012737 

000063 

001412 


MOV 

fWH.’GO.RMCSIO 

1693 

025302 

012737 

000000 

001436 


MOV 

#0,RMMR10 

1694 

025310 

012702 

001555 



MOV 

#PUTINX.R2 

1695 

025314 

112722 

000024 



MOVB 

#RMMR1 , (R2)+ 

1696 

025320 

112722 

000006 



MOVB 

#RNDA, (R2)+ 

1697 

025324 

112722 

000034 



MOVB 

*RMDC.(R2)+ 

1698 

025330 

112722 

000032 



MOVB 

#RMOF, (R2)+ 

1699 

025334 

112722 

000002 



MOVB 

#RMWC,(R2)+ 

1700 

025340 

112722 

000004 



MOVB 

#RMBA. <R2) ♦ 
#RMCS1.(R2)+ 

1701 

025344 

112722 

000000 



MOVB 

1702 

025350 

112722 

000200 



MOVB 

#200. <R2>* 

1703 








1704 

025354 

004737 

036004 



JSR 

PC. PUT 


025360 

000404 




BR 

5$ 


025362 

000240 




NOP 



025364 

104000 




EMT 


1705 

1706 

1707 

025366 

025372 

000137 

025704 


5$: 

JMP 

16$ 





.-SETUP 

INPUT 

REGISTER BUFFER 1 

1708 

025372 

004737 

035450 



JSR 

PC.GETSTS 

1709 

025376 

004737 

036356 



JSR 

PC.TIMOUT 

1710 








1711 

025402 

004737 

035534 



JSR 

PC. GET 


025406 

000404 




BR 

6$ 


025410 

000240 




NOP 



025412 

104000 




EMT 



025414 

000137 

025704 



JMP 

16$ 

1712 

025420 




6$: 



1713 








1714 





; VERIFY 

RESULTS OF WRITE COMM 

1715 

025420 

004737 

036552 



JSR 

PC. PRIERR 


025424 

000405 




BR 

7$ 


025426 

000240 




NOP 



025430 

104000 




EMT 



025432 

004736 




JSR 

PC.B(SP)* 

16i 


U25434 

000137 

025704 



JMP 

1716 

025440 




7$: 


#IVC.RMER2I 

1717 

025440 

032737 

010000 

001400 


BIT 

1718 

025446 

001012 




BNE 

8$ 

1719 

025450 

013737 

001400 

001142 


MOV 

RMER2I,$8DDAT 

1720 

025456 

013737 

001400 

001140 


MOV 

RMER2I ,$GDDAT 

1721 

025464 

052737 

010000 

001140 


BIS 

#IVC.$GDDAT 

1722 

025472 

104342 




EMT 

342 

1723 

025474 




8$: 



1724 

025474 

004737 

037404 



JSR 

PC.SECERR 


; SC TUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

.-WRITE HEADER AND DATA 

.-RESET DIAGNOSTIC MODE 
.-WRITE REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 16$ IF ERROR 


;WA1T FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 16$ IF ERROR 


;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 7$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR # DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 16$ IF ERROR 


IS IVC STATUS SET?? 

YES' 1 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS 


;G0 CHECK FOR SECONDARY ERRORS 


J 10 


SEQ 0126 
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1725 

1726 

1727 

1728 


1729 

1730 

1731 

1732 

1733 

1734 

1735 


1736 

1737 

1738 

1739 

1740 

1741 

1742 


025500 

025502 

025504 

025506 

025510 

025514 


025514 

025520 


025522 

025524 

025526 

025530 

025534 


025534 

025542 

025550 

025554 

025556 

025560 

025562 

025566 


025566 

025572 

025576 

025602 

025604 

025606 

025610 

025614 



000405 

000240 

104000 

004736 

000i37 


004737 

040100 


000404 

000240 

104000 

000137 


012737 

012737 

004737 

000404 

000240 

104000 

000137 


004737 

004737 

004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

000137 

032737 


11373/ 

013737 

052737 

104342 

004737 

000403 


025704 

031456 


9$: 


BR 

NOP 

EMT 

JSR 

JMP 


9$ 


PC.B(SP)* 

16t 


; CLEAR IVC ERROR 

JSR PC.TSTPRP 
.WORD 040100 


025704 

000073 

102722 

036004 

025704 

035450 

036356 

035534 

025704 

036552 

025704 

010000 

001400 

001400 

010000 

037404 


10 $: 


BR 

NOP 

EMT 

JMP 


10 $ 

16 $ 


60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 16$ IF ERROR 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR UPERATION 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

60 TO 16$ IF ERROR 


001412 

001416 


;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

NOV #RH!60.RNCS10 ;READ HEADER ft DATA COMMAND 

NOV fBUFTWO.RNBAO ; CHAN6E BUS ADDRESS 


11 $: 


JSR 

BR 

NOP 

ENT 

JMP 


PC -PUT 

ni 


16$ 


60 WRITE RE6ISTER(S) WITH PUT SUBROUTINE 

60 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

60 TO 16$ IF ERROR 


.SETUP INPUT RE6ISTER BUFFER FOR READIN6 STATUS 
JSR PC.6ETSTS 

JSR PC.TINOUT .-WAIT FOR READ TO COMPLETE 


12 $: 

.VERIFY 


JSR 

BR 

NOP 

ENT 

JMP 


PC-6ET 

12 § 


16$ 


60 READ RE6ISTERCS) WITH 6ET SUBROUTINE 

60 TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY 6ET SUBROUTINE 

60 TO 16$ IF ERROR 


001400 

001142 

001140 

001140 


13$: 


14$: 


THE 

JSR 

BR 

NOP 

ENT 

JSR 

JMP 

BIT 

BNE 

NOV 

NOV 

BIS 

ENT 

JSR 

BR 


RESULTS OF READ OPERATION 


PC.PRIERR 

i3i 


pc.acsp)* 

16* 

0IVC.RNER2I 

14$ 

RNER2I.SBDDAT 
RMER2I ,$6DDAT 
#IVC.$6DDAT 
342 

PC-SECERR 

15* 


60 CHECK FOR PRIMARY ERRORS 

60 TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

60 BACK FOR NORE ERROR CHECKS 

60 TO 16$ IF ERROR 


IS IVC STATUS SET?? 

YES!! 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS 


;60 CHECK FOR SECONDARY ERRORS 
;60 TO 15$ IF NO ERROR 


K 10 


SEQ 0127 
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125 


* 

IV r FORMAT TEST 




025676 

000240 


NOP 


025700 

104000 

004736 


EMT 


025702 

15$: 

JSR 

1756 

025704 



1757 





1758 

025704 


16$: 


1759 





1760 



;;****' 

***** 

26 




.-•TEST 


pc.bisp)* 


RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 


025704 

025704 

025706 

025710 

025714 

025720 

025724 

1761 

1762 

1763 025732 
17e>4 025740 

1765 025746 

1766 025754 

1767 025762 

1768 025762 

1769 025770 

1770 

1771 

025776 
026002 
026004 
02601 C 
026012 

1772 026016 

1773 026016 

1774 026024 

1775 026032 

1776 026036 

1777 

1778 

1779 026036 
026042 


FORMAT ERROR TEST 


000004 

000240 

012706 

013700 

013701 

012737 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


004737 

154130 


TST26: 


001100 

001276 

001466 

000026 


001057 

001000 

010000 

177376 

101716 

000062 


032406 

063446 

026606 

065116 

000001 

034640 

031456 



SCOPE 


.'SCOPE CALL 


NOP 


.•START OF TEST 


MOV 

#STACK,SP 

.INITIALIZE STACK POINTER 


NOV 

88ASE.R0 

;R0 = UNIBUS ADDRESS 


NOV 

TSTQUE.R1 

;(R1) = DEVICE BEING TESTED 

001226 

MOV 

#26.$TESTN 

.'.SET TEST NUMBER IN APT MAIL BOX 


.SETUP PARAMETERS FOR GENERATING DATA BUFFER 

001446 

MOV 

#559. .RMDCO 

.-CYLINDER = 559. 

001420 

NOV 

#TA2.RMDA0 

#FMT16.RM0F0 

.TRACK = 2. SECTOR = 0 

001444 

MOV 

;16 BIT FORMAT 

001414 

MOV 

1$: 

MOV 

#-258. .RNWCO 

;2 ♦ 256 WORDS <2’S COMP) 

001416 

#8UF0NE.RHBA0 

.•DATA BUFFER ADDRESS 

001412 

MOV 

#WH,RMCS10 

.'WRITE HEADER AND DATA 


001174 

001176 


.VERIFY THAT SECTOR IS NOT BAD 
JSR PC.8ADSCT 

BR 28 

TYPE ,SCTMSG 

EMT 

JMP 22$ 

MOV #ZER0S.8TMP0 

MOV #1,$TMP1 

JSR PC.6ENBUF 


28: 


38: 


;CALL BAD SECTOR MODULE 
;G0 TO 2$ IF NO ERROR 
; TYPE BAD SECTOR MESSAGE 
; ERROR # DEFINED BY BADSCT SUBROUTINE 
;G0 TO 22 8 IF ERROR 

;USE ALL ZEROS DATA PATTERN 

;G0 GENERATE DATA BUFFER 


.PREPARE DEVICE FOR DATA TRANSFER 


JSR 
.WORD 


PC.TSTPRP 

154130 


026044 

000404 


BR 

48 

026046 

000240 


NOP 


026050 

104000 


EMT 


026052 

000137 

026606 

JMP 

228 

1780 026056 



4$: 


1781 





1782 



.'SETUP AND EXECUTE WRITE HI 

1783 026056 

012737 

000062 001412 

MOV 

#WH,RNCS10 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI" OR ’IMP" IS SET 

VERIFY RECALIBRATION 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 228 IF ERROR 


.WRITE HEADER AND DATA 


SEQ 0123 
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1 784 026064 

1785 026070 

1786 026074 

1787 026100 

1788 026104 

1789 026110 

1790 026114 

1791 026120 

1792 

1793 026124 
026130 
026132 
026134 
026136 

1794 026142 

1795 026142 

1796 026146 

1797 026152 

1798 026160 

1799 026162 

1800 026164 

1801 

1802 026166 

1803 

1804 026174 
026200 
026202 
026204 
026206 

1805 026212 

1806 

1807 

1808 026212 

1809 026216 

1810 

1811 026222 
026226 
026230 
026232 
026234 

1812 026240 

1813 

1814 

1815 026240 
026244 
026246 
026250 
026252 
026254 

1816 026260 

1817 026260 
026264 
026266 
026270 
026272 
026274 

1818 026 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 

012702 

004737 

032777 

001774 

005302 

001370 

012737 

004737 

000404 

000240 

104000 

000137 


004737 

004737 

004737 

000404 

0002**0 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


001555 


000032 



000200 

036004 


026606 

000002 

036520 

000200 153342 


MOV 

movb 

Move 

movb 

H0V8 

MOVB 

MOVB 

MOVB 


#PUTINX,R2 
#RMDA,<R2>* 
#RMDC,(R2H 
fRMOF , ( R2 ) ♦ 
#RMWC,(R 2)* 
#RNBA.{R2>* 
#RMCS1.(R2>* 
#200, (R2>* 

PC, PUT 

5$ 


#2,R2 

PC,STIMER 

#8IT7,aCLKADR 

7$ 

R2 

6 $ 


.-WRITE REGISTER INDEX TABLE 


000063 001412 


MOV 

#WH!G0,RMCS10 

036004 


JSR 

BR 

NOP 

EMT 

PC, PUT 

8$ 

026606 

8$: 

JMP 

22$ 


; SETUP 

INPUT 

REGISTER BUFFER FOR 

035450 


JSR 

PC.GETSTS 

036356 


JSR 

PC,TIMOUT 

035534 


JSR 

BR 

NOP 

EMT 

PC. GET 

9$ 

026606 

9$: 

JMP 

22$ 


; VERIFY 

RESULTS OF WRITE COMMAND 

036552 


JSR 

BR 

NOP 

EMT 

JSR 

PC, PRIERR 

ioi 

pc.aisp)* 

026606 

10$: 

JMP 

22$ 

051612 


JSR 

BR 

NOP 

EMT 

JSR 

PC.DTASTS 

iii 

pc.a<sp>* 

026606 

11$: 

JMP 

22i 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 22$ IF ERROR 

DO 2 CLOCK CYCLES 
START CLOCK TIMER 
TIMER DONE?? 

NO!! 

DEC NUMBER OF CYCLES 
CONTINUE IF NOT DONE 

WRITE HEADER AND DATA 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 22$ IF ERROR 


.-WAIT FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 22$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 


M 10 
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SEQ 0129 


1819 026300 
026304 
026306 
026310 
026312 
026314 

1820 026320 

1821 
1822 
1822 


004737 037404 

000405 

000240 

104000 

004736 

000137 026606 


12 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.SECERR 

12 $ 


pc.aisp)* 

22i 


GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 


.-READ HEADER AND DATA FOR SECTOR JUST WRITTEN IN OPPOSITE FORMAT 
;AND CHECK THAT •TER*' SETS 


1824 






COM 

1825 

026320 

005137 

001444 



1826 

026324 

042737 

167777 

001444 


BIC 

1827 

026332 

012737 

102722 

001416 


MOV 

1828 

1829 

1830 

026340 

012737 

000072 

001412 


MOV 

026346 

004737 

036004 



JSR 


026352 

000404 




BR 


026354 

000240 




NOP 


026356 

104000 




EMT 


026360 

00C137 

026606 


13$: 

JMP 

1831 

026364 




MOV 

1832 

026364 

012702 

000002 


14$: 

1833 

026370 

004737 

036520 

153120 

JSR 

1834 

026374 

032777 

000200 

15$: 

BIT 

1835 

026402 

001774 




BEQ 

1836 

026404 

005302 




DEC 

1837 

1838 

1839 

1840 

1841 

026406 

001370 




8NE 

026410 

012737 

000073 

001412 


MOV 

026416 

004737 

036004 



JSR 


026422 

000404 




BR 


026424 

000240 




NOP 


026426 

104000 




EMT 


026430 

000137 

026606 


16$: 

JMP 

1842 

026434 





1843 






FOR Rl 

1844 





.•WAIT 

1845 

026434 

004737 

036356 



JSR 

1846 



035534 



JSR 

1847 

026440 

004737 




026444 

000404 




BR 


026446 

000240 




NOP 


026450 

104000 




EMT 


026452 

000137 

026606 


17$: 

JMP 

1848 

026456 





1849 







1850 





.•VERIFY THE 

1851 

026456 

026462 

004737 

000405 

036552 



JSR 

BR 


026464 

000240 




NOP 


026466 

104000 




EMT 


026470 

004736 




JSR 


026472 

000137 

026606 


18$: 

JMP 

1852 

026476 






RMOFO 

#*C<FMT16>,RM0F0 

#BUFTWO.RMbAO 

fRH.RMCSIO 

PC.PUT 
I3i 


22 $ 

#2. R2 
PC.STIMER 
#BIT7.8CLKADR 
15$ 

R2 

14$ 


.•CHANGE TO OPPOSITE FORMAT 

.•CHANGE BUS ADDRESS 
;READ HEADER $ DATA COMMAND 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 22$ IF ERROR 

;D0 2 CLOCK CYCLES 
.•START CLOCK TIMER 
.•TIMER DONE?? 

•NO' 1 

•DEC 'NUMBER OF CYCLES 
.•CONTINUE IF NOT DONE 


#RH!G0.RMCS10 .-READ HEADER 8 DATA COMMAND 


PC.PUT 

16i 


22 $ 


PC.TIMOUT 

PC.GET 

i7i 


22 $ 


PC .PR I ERR 

18i 


PC.a(SP)* 

22i 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO ?2$ IF ERROR 


.•WAIT FOR READ TO COMPLETE 

GO READ REGISTER(S) WITH GtT SUBROUTINE 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 22$ IF ERROR 


I I 4 WIY 

GO CHECK FOR PRIMARY ERRORS 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 


1853 


! 
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SEQ 0130 


1854 

1855 026476 

1856 026504 

1857 

1858 0265C6 
026512 
026514 
026516 
026520 
026522 

1859 

1860 026526 

1861 026534 

1862 026542 

1863 026550 

1864 026552 

1865 026552 
026556 
026560 
026562 
026564 
026566 

1866 026572 

1867 026572 

1868 

1869 026600 

1870 026602 

1871 026606 

1872 

1873 


026606 

026606 

026610 

026612 

026616 

026622 

026626 

1874 

1875 026634 

1876 

1877 

1878 026642 

1879 026642 

1880 026650 

1881 026656 

1882 026664 

1883 026672 

1884 026700 

1885 

1886 

026706 

026712 

026714 


032737 

001022 

004737 

000405 

000240 

104000 

004736 

000137 

013737 

013737 

052737 

104343 

004737 

000405 

000240 

104000 

004736 

000137 


000020 001352 


051612 


026606 

001352 001142 
001352 001140 
000020 001140 


037404 


026606 


.-VERIFY THAT FORMAT ERROR IS SET 
BIT #FER.RMER1I 
BNE 20$ 

JSR PC.DTASTS ; 

BR 19$ 


PC.a<SP>* 

22i 

RMER1I .SBDDAT 
RMER1I .SGDDAT 
#FER, SGDDAT 
343 

PC.SECERR 

21 i 


032737 010000 001444 


PC.a(SP)* 

22i 

#FMT1£.RM0F0 


001002 

000137 


025762 


;IS FORMAT ERROR SET?? 

;YESi! 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

.-BAD DATA FOR TYPEOUT 
.-EXPECTED DATA 


GO CHECK FOR SECONDARY ERRORS 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

.-TEST WRITE IN 18 BIT FORMAT AN& 
.-READ IN 16 BIT FORMAT ? 

;8R IF YES 
.-TEST AGAIN 


000004 

000240 

012706 

013700 

013701 

012737 


• **************************************************************** 
;*TEST 27 FORMAT HCE. FIRST HEADER WORD 

• • *************************************************************** 
TST27: 

SCOPE .-SCOPE CALL 


001100 

001276 

001466 

000027 


00*226 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


012737 000001 027672 


#STACK,SP 
S6ASE.R0 
TSTQUE.R1 
#27, STESTN 

#1.25$ 


START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

; SET TEST NUMBER IN APT MAIL BOX 

;INIT BIT POSITION 


012737 

012737 

012737 

012737 

012737 

012737 


010000 

001057 

001000 

177376 

101716 

000062 


001444 

001446 

001420 

001414 

001416 

001412 


; SETUP PARAMETERS FOR GENERATING DATA BUFFER 

1 $: 


004737 032406 
000405 

104401 063446 


104000 

000137 


MOV #FMT16,RM0F0 

MOV #559. .RMDCO 

MOV #TA2.RMDA0 

MOV #-25o. .RMWCO 

MOV #BUFONE,RHBAO 

MOV #WH,RMCS10 

.-VERIFY THAT SECTOR IS NOT BAD 
JSR PC.8ADSCT 

BR 2$ 

TYPE .SCTMSG 


027674 


16 BIT FORMAT 
CYLINDER = 559. 

TRACK = 2, SECTOR = 0 
2 ♦ 256 WORDS (2'S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


CALL BAD SECTOR MODULE 

GO TO 2$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE „ , 

ERROR # DEFINED BY BADSCT SUBROUTINE 

GO TO 27$ IF ERROR 


SEO 0131 
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1887 026726 

1888 026726 

1889 026734 

1890 026742 

1891 026746 

1892 

1893 

1894 026746 
026752 


01?737 

012737 

004737 


004737 

154130 


026754 

026756 

026760 

026762 

1895 026766 

1896 

1897 

1898 026766 

1899 026774 

1900 026776 

1901 027004 

1902 027006 

1903 

1904 

1905 027014 

1906 027014 

1907 027022 

1908 027026 

1909 027032 

1910 027036 

1911 027042 

1912 027046 

1913 027052 

1914 027056 

1915 

1916 027062 
027066 
027070 
027072 
027074 

1917 027100 

1918 

1919 

1920 027100 

1921 027104 

1922 

1923 027110 
027114 
027116 
027120 
027’-' 


065116 

OOOGOI 

034640 


031456 


001174 

001176 


000404 

000240 

104000 

000137 


033737 

001404 

043737 

000403 

053737 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


#ZERO$,$TMPO 
#1 ,$TMP1 
PC.GENBUF 


.•PREPARE DEVICE FOR DATA TRANSFER 


;USE ALL ZEROS DATA PATTERN 
;G0 GENERATE DATA BUFFER 


JSR 

.WORD 


PC.TSTPRP 

154130 


027674 


027672 101716 
027672 101716 
027672 101716 


000063 001412 
001555 
000006 
000034 
000032 
000002 
000004 
000000 
000200 

036004 


027670 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 27$ IF ERROR 


; COMPLEMENT DATA BIT IN FIRST HEADER WORD 


25S.BUF0NE 

5$ 

25$.BUFONE 

6 $ 

25$,BUFONE 


;IS BIT IN HEADER ON?? 
;NOi! 

.•RESET BIT IN HEADER 
.'SET BIT IN HEADER 


.•SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
6 $: 


004737 035450 
004737 036356 

004737 035534 
000404 
000240 
104000 

000137 027670 


MOV 

fWH'GO.RMCSIO 

.'WRITE HEADER AND DATA 

MOV 

#PUTINX.R2 

.•WRITE REGISTER INDEX TABLE 

MOVB 

#RMDA,(R2H 


MOVB 

#RMDC,(R2H 


MOVB 

#RM0F.(R2)+ 


MOVB 

#RMWC,(R2)+ 


MOVB 

#RMBA. (R2)+ 


MOVB 

#RMCS1,(R2)+ 


MOVB 

#200. CR 2 >+ 


JSR 

PC, PUT 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

BR 

7$ 

GO TO 7$ IF NO ERROR 

NOP 


RETURN HERE IF ERROR 

EMT 


ERROR # DEFINED BY PUT SUBROUTINE 

JMP 

24$ 

GO TO 24$ IF ERROR 

l 

INPUT 

REGISTER BUFFER FOR READING STATUS 

JSR 

PC.GETSTS 


JSR 

PC.TIMOUT 

.■WAIT FOR COMMAND TO COMPLETE 

JSR 

PC. GET 

GO READ REGISTER (S) WITH GET SUBROUTINE 

BR 

8$ 

GO TO 8$ IF NO ERROR 

NOP 


RETURN HERE IF ERROR 

EMT 


ERROR # DEFINED BY GET SUBROUTINE 

JMP 

24$ 

GO TO 24$ IF ERROR 


SEQ 0132 i 
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1924 027126 

1925 

1926 

1927 027126 
027132 
027134 
027136 
027140 
027142 

1928 027146 

1929 027146 
027152 
027154 
027156 
027160 
027162 

1930 027166 

1931 027166 
027172 
027174 
027176 
027200 
027202 

1932 027206 

1933 

1934 

1935 027206 

1936 027214 

1937 

1938 027222 
027226 
027230 
027232 
027234 

1939 027240 

1940 

1941 

1942 027240 

1943 

1944 027244 
027250 
027252 
027254 
027256 

1945 027262 

1946 

1947 

1948 027262 
027266 
027270 
027272 
027274 
027276 

1949 027302 

1950 027302 

1951 027310 

1952 027312 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


012737 

012737 

004737 

000404 

000240 

104000 

000137 


036552 

027670 

051612 

027670 

037404 

027670 

000073 

102722 

036004 

027670 


8 $: 

.-VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 


9S: 


10 $: 


11 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


OF WRITE COMMAND 
PC, PRIERR 
9$ 


PC,a<SPH 

24* 

PC.DTASTS 

10* 


PC.a(SP)* 

24* 

PC.SECERR 

11 $ 


PC.a(SP)* 

24* 


001412 

001416 


12 $: 


MOV 

#RH!G0.RMCS10 

MOV 

48UFTW0.RMBA0 

JSR 

PC. PUT 

BR 

12* 

NOP 


EMT 


JMP 

24$ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 10$ IF NO ERROR 

RETURN HERE I*- ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORF " ROR CHECKS 

GO TO 24$ IF ERkuR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 


.-READ HEADER t DATA COMMAND 
.-CHANGE BUS ADDRESS 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 


004737 036356 

004737 035534 
000404 
000240 
104000 

000137 027670 


004737 036552 

000405 

000240 

104000 

004736 

000137 027670 

032737 020000 
001037 

032737 14C000 


.-WAIT FOR READ TO COMPLETE AND GET STATUS 


JSR 

JSR 
BR 
NO P 
EMT 
JMP 


PC.TIMOUT 

PC.GET 
13* 


24$ 


13 $: 

.-VERIFY THE RESULTS OF READ OPERATION 


.-WAIT FOR READ TO COMPLETE 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

.-GO TO 13$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR f DEFINED BY GET SUBROUTINE 

;G0 TO 24$ IF ERROR 


027672 

027672 


14 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

BIT 

BNE 

BIT 


PC .PRIERR 
14* 


PC.a(SP)* 

24* 

#SSF.25$ 

16 $ 

«MSE!USE.25$ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

.•SHOULD SSE BE SET ? 

•YES ' ' 

•SHOULD BSE BE SET ? 




SEO 0133 


YES ' 1 

IS THIS PER ?? 
NO 


;IS FER SET ?? 

;YES f! 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

.‘RECEIVED STATUS 
.‘EXPECTED STATUS 


;IS 'SSE* BIT SET ? 

.‘YES ! ! 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 17$ IT NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

.‘GET RECIEVED STATUS 
.‘GET EXPECTED STATUS AND 
.SET SSE. 

.‘SKIP REST OF TEST 


;IS BSE SET ?? 

;YES ! ! 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

.‘RECEIVED STATUS 
.EXPECTED STATUS 


.SKIP REST OF TEST 


SEO O 1 ^ 


I CZRMEAO RM80 Ff TNI PT2 MACRO V04.00 28- JAN-82 16:38:23 PAGE 13-63 
T27 FORMAT hCE. FIRST HEADER WORD 


E 11 


1995 




:VERIFY 

THAT 

1996 027544 




20$: 


1997 027544 

032737 

000200 

001352 


BIT 

1998 027552 

001031 




8NE 

1999 






2000 027554 

004737 

051612 



JSR 

027560 

000405 




BR 

027562 

000240 




NOP 

027564 

104000 




EMT 

027566 

004736 




JSR 

027570 

000137 

027670 



JMP 

2001 027574 




21$: 


2002 027574 

013737 

001352 

001142 


MOV 

2003 027602 

013737 

001352 

001140 


MOV 

2004 027610 

052737 

000200 

001140 


BIS 

2005 027616 

012737 

000001 

001174 


MOV 

2006 027624 

013737 

027672 

001176 


MOV 

2007 027632 

104344 




EMT 

2008 027634 

000415 




BR 


2009 027636 

2010 
2011 

2012 027636 
027642 
027644 
027646 
027650 
027652 
027656 


22 $: 


fHCE.RMERII 

22 $ 

PC.DTASTS 

2ii 


PC X 8(SPH 
2 4§ 

RMER1I .SBDDAT 

RMER1I .SGDDAT 

#HCE, SGDDAT 

#1 .STMPO 

25$,$TMP1 

344 

24$ 


;IS “MCE* 
; YES ! ! 


SET?? 


2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 


2024 

2025 

2026 
2027 


027656 

027662 

027664 

027670 

027672 

027674 

027674 


004737 037404 
000405 
000240 
104000 
004736 


001404 


.■CHECK FOR OTHER ERRORS 


JSR 

BR 


PC.SECERR 

23i 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

.•RECEIVED STATUS FOR TYPEOUT 
.•EXPECTED STATUS 

.-GET HEADER WORD NUMBER 
;GET FAILING BIT POSITION 


GO CHECK FOR SECONDARY ERRORS 
GO TO 23$ IF NO ERROR 


000401 

000000 


027674 
027674 
027676 
027700 
027704 
027710 
027714 

2028 

20|9 027722 012737 

203? 

2032 027730 


000004 
000240 
012706 
01 3700 
013701 
012737 


027670 


23$: 

EMT 

JSR 

JMP 

pc.atsp)* 

24$ 

ERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

027672 

026642 


.•ADVANCE THE BIT POSITION AND FORMAT AGAIN IF NOT DONE 

ASL 25$ ; SHIFT TO NEXT BIT POSITION 

BEO 26$ .‘EXIT IF DONE 

JMP 1$ ;G0 DO NEXT SECTOR 



24$: 

25$: 

BR 

.WORD 

27$ 

0 

.•JUMP TO NEXT TEST 
.•STORAGE FOR BIT POSITION 



26$: 






27$: 






;;****' 

;*TEST 

30 

FORMAT HCE. SECOND HEADER WORD 

001100 

001276 

001466 

000030 

001226 

TST30: 

SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

# STACK, SP 
$BASE.RO 
TST0UE.R1 
#30,$TESTN 

SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1? = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 

000001 

030516 


MOV 

#1.19$ 

;INIT BIT POSITION 


: SETUP PARAMETERS FOR GENERATING DATA BUFFER 

H: 
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SEQ 


2033 027730 

2034 027736 

2035 027744 

2036 027752 
2C37 027760 

2038 027766 

2039 

2040 

027774 

030000 

030002 

030006 

030010 

2041 030014 

2042 030014 

2043 030022 

2044 030030 

2045 030034 

2046 

2047 

2048 030034 
030040 


2049 

2050 

2051 


2054 


2057 

2058 


2061 


2064 

2065 


2069 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


004737 

154130 


001057 

001000 

010000 

177376 

101716 

000062 


032406 

063446 

030520 

065116 

000001 

034640 

031456 


001446 
001 420 
001444 
001414 
001416 
001412 


001174 

001176 


NOV #559. ,RHDC0 

NOV #TA2.RNDA0 

NOV #FNT16,RN0F0 

NOV #-258. .RNUCO 

NOV #8UF0NE.RHBA0 
NOV #WH,RNCS10 

; VERIFY THAT SECTOR IS NOT BAD 
JSR PC.BADSCT 

BR 2$ 

TYPE .SCTMSG 

ENT 

JNP 21$ 

NOV #ZEROS.$TNPO 

NOV #1 ,$TNP1 

JSR PC.GENBUF 


2 $: 


3$: 


CYLINDER - 559. 

TRACK = 2. SECTOR = 0 
16 BIT FORMAT 
2 ♦ 256 WORDS (2*S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


CALL BAD SECTOR NODULE 

GO TO 2$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 

GO TO 21$ IF ERROR 

;USE ALL ZEROS DATA PATTERN 

;G0 GENERATE DATA tfUFFER 


.-PREPARE DEVICE FOR DATA TRANSFER 


JSR 
.WORD 


PC.TSTPRP 
154130 


030042 

000404 




BR 

4$ 

030044 

000240 




NOP 


030046 

104000 




EMT 


030050 

000137 

030520 



JNP 

21$ 





.‘COMPLEMENT DATA BIT IN SECOND 

030054 




4$: 



030054 

033737 

030516 

101720 


BIT 

19$,BUF0NE+2 

030062 

001404 




BEQ 

5$ 

030064 

043737 

030516 

101720 


BIC 

19$.BUF0NE+2 

030072 

000403 




BR 

6$ 

030074 

053737 

030516 

101720 

5$: 

BIS 

19$.BUF0NE*2 





.•SETUP AND EXECUTE WRITE HEADEl 

030102 




6$: 



030102 

012737 

000063 

001412 


NOV 

#WH!G0,RNCS10 

030110 

012702 

001555 



NOV 

#PUTINX,R2 

030114 

112722 




NO VS 

#RMDA.(R2)* 

030120 

112722 

00003*. 



NO VS 

#RMDC,(R2H 

030124 

112722 

000032 



MOVB 

#RN0F,(R2>* 

030130 

112722 

000002 



HOVB 

#RMWC, (R2) + 

030134 

112722 

000004 



N0V8 

#RNBA. (R2) ♦ 

030140 

112722 

000000 



HOVB 

#RMCSl.(R2>+ 

030144 

112722 

000200 



MOVB 

#200. (R2)* 

030150 

004737 

036004 



JSR 

PC .PUT 

030154 

000404 




BR 

7$ 

030156 

000240 




NOP 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE l VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER $ SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERA 7 I ON 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •’SKI" OP ‘W IS SET 

VERIFY RECALIBRATION 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 21$ IF ERROR 


;IS BIT IN HEADER ON?? 

’NO 1 1 

’RESET BIT IN HEADER 
.’SET BIT IN HEADER 


.’WRITE HEADER AND DATA 
.•WRITE REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 


v/135 
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SEO 0136 



030160 

104000 


EMT 

18$ 


030162 

000137 

030514 

JMP 

2071 

2072 

2073 

030166 



7$: 





.•SETUP INPUT 

REGISTER BUFFER 

2074 

030166 

004737 

035450 

JSR 

PC.GETSTS 

, 2075 

2076 

2077 

030172 

004737 

036356 

JSR 

PC.TIMOUT 

030176 

004737 

035534 

JSR 

PC. GET 

030202 

000404 


BR 

8$ 


030204 

000240 


NOP 



030206 

104000 


EMT 

18$ 


030210 

000137 

030514 

JMP 


2078 03021 A 

2079 


8 $: 


; ERROR # DEFINED BY PUT SUBROUTINE 
;G0 TO 18S IF ERROR 


.-WAIT FOR COMMAND TO COMPLETE 

;G0 READ REGISTEP(S) WITH GET SUBROUTINE 

;G0 TO 8$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR » DEFINED BY GET SUBROUTINE 

;G0 TO 18$ IF ERROR 


OF WRITE COMMAND 


2081 

030214 

004737 

036552 


JSR 

PC. PRIERR 


030220 

000405 



BR 

9$ 


030222 

000240 



NOP 



030224 

104000 



EMT 

PC.BCSPH 

18$ 


030226 

004736 



JSR 


030230 

000137 

030514 


JMP 

2082 

2083 

030234 

030234 

004737 

051612 

9$: 

JSR 

PC.DTASTS 

10$ 

030240 

000405 



BR 


030242 

000240 



NOP 



030244 

104000 



EMT 



030246 

004736 



JSR 

pc.acsp)* 

18$ 


030250 

000137 

030514 


JMP 

2084 

030254 



10$: 



2085 

030254 

004737 

037404 


JSR 

PC.SECERR 

11$ 


030260 

000405 



3 R 


030262 

000240 



NOP 



030264 

104000 



EMT 

pc.a<sp>+ 

18$ 


030266 

004736 



JSR 


030270 

000137 

030514 


JW 


2086 030274 

2087 

20S8 

2089 030274 

2090 030302 

2091 

2092 030310 
030314 
030316 
030320 
030322 

2093 030326 

2094 

2095 

2096 030326 

20?8 030332 
030356 
030340 
030342 
030344 


11 $: 


GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 


012737 000073 
012737 102722 

004737 036004 
000404 
000240 
104000 

000137 030514 


004737 036356 

004737 035534 
000404 
000240 
104000 

000137 030514 


001412 

001416 


.READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

MOV #RH!G0.RMCS10 .‘READ HEADER t DATA COMMAND 

MOV fBUFTWO.RMBAO .-CHANGE BUS ADDRESS 


12 $: 


JSR 

BR 

NOP 

EMT 

JMP 


PC.PUT 

12i 


18 $ 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;60 TO 12$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.’ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 18$ IF ERROR 


.WAIT FOR READ TO COMPLETE AND GET STATUS 


JSR 

JSR 

BR 

NOP 

EMT 

JMP 


PC.TIMOUT 

PC.6ET 
13$ 


18 $ 


.-WAIT FOR READ TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 
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2099 

2100 
2101 
2102 


2103 

2104 

2105 

2106 

2107 

2108 
2109 


2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 


2122 

2123 

2124 

2125 

2126 

2127 

2128 

21 29 

2130 

2131 

2132 

2133 

2134 

2135 

21 36 


030350 


030350 

03C354 

030356 

030360 

030362 

030364 

030370 


030370 

030376 

030400 

030404 

030406 

030410 

030412 

030414 

030420 

030420 

030426 

030434 

030442 

030450 

030456 

030460 

030462 


004737 

000405 

000240 

104000 

004736 

000137 


032737 

001031 

004737 

000405 

000240 

104000 

004736 

000137 

013737 

013737 

052737 

012737 

013737 

104344 

000415 


036552 


030514 


13 $: 

.-VERIFY THE RESULTS OF READ OPERATION 


14$: 


JSR 

BR 

NOP 

ENT 

JSR 

JMP 


PC.PRIERR 
14$ 


PC.iCSPJ* 

18$ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 


000200 

001352 

BIT 

BNE 

051612 


JSR 

BR 

NOP 

EMT 

JSR 

030514 

15$: 

JMP 

001352 

001142 

MOV 

001352 

001140 

MOV 

000200 

001140 

BIS 

000002 

001174 

MOV 

030516 

001176 

MOV 

EMT 

BR 


.-VERIFY THAT HEADER COMPARE ERROR IS SET 


16$: 


#HCE.RMER1I 
16 $ 

PC.DTASTS 
15i 


PC.atSPJ* 

I8i 

RHER1I ,$BDDAT 
RMERII.SGDDAT 
#HCE,$GDDAT 
#2.$TMP0 
19i,$THP1 
344 
18$ 


,-is * vice* * set?? 
; YES ! ! 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

.-RECEIVED STATUS FOR TYPEOUT 
; EXPECTED STATUS 

.-GET HEADER WORD NUMBER 
.-GET FAILING BIT POSITION 





.-CHECK 

FOR OTHER ERRORS 


030462 

004737 

037404 


JSR 

PC.SECERR 

;G0 CHECK FOR SECONDARY ERRORS 

030466 

000405 



BR 

17$ 

;G0 TO 17$ IF NO ERROR 

030470 

000240 



NOP 


.-RETURN HERE IF ERROR 

030472 

104000 



EMT 


.-ERROR » DEFINED BY SECERR SUBROUTINE 

030474 

004736 



JSR 

PC.i(SPH 

;G0 BACK FOR MORE ERROR CHECKS 

030476 

000137 

030514 


JMP 

18$ 

;G0 TO 18$ IF ERROR 

030502 



17$: 







.-ADVANCE THE BIT POSITION AND 

FORMAT NEXT SECTOR IF NOT DONE 

030502 

006337 

030516 


ASL 

19$ 

; SHIFT TO NEXT BIT POSITION 

030506 

001404 



BED 

20$ 

;EXIT IF DONE 

030510 

000137 

027730 


JMP 

1$ 

;G0 DO NEXT SECTOR 

030514 

000401 


18$: 

BR 

21$ 

.-JUMP OVER STORAGE 

030516 

000000 


19$: 

.WORD 

0 

.-STORAGE FOR BIT POSITION 

030520 



20$: 




030520 



21$: 







;;****' 

.-•TEST 

31 

FORMAT FE CYLINDERS 

030520 



• ***** 
tST31 : 




030520 

000004 



SCOPE 


.-SCOPE CALL 


SCO Q' 



ScQ 0138 
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030522 

030524 

030530 

030534 

030540 

030546 

2137 

2138 

2139 030554 

2140 030562 

2141 030570 
21*2 030570 

2143 050576 

2144 030604 

2145 030612 

2146 

2147 

030620 

030624 

030626 

030632 

030634 

2148 030640 

2149 930640 

2150 030646 

2151 030650 

2152 030654 

2153 030654 

2154 030660 

2155 030660 

2156 030664 

2157 030666 

2158 030674 

2159 

2160 

2161 030674 
030700 


000240 

012706 

013700 

013701 

012737 

012737 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

023727 

101402 

000137 

004737 

005737 

001403 

052737 


004737 

154130 


001100 

001276 

001466 

000001 

000031 


001057 

001000 

011000 
1 77776 
101716 
000062 


032406 

063446 

031146 

001446 

031146 

034640 

001514 

020000 

031456 


001206 

001226 


001446 

001420 

001444 

001414 

001416 

001412 


NOP 

MOV 

MOV 

MOV 

MOV 

MOV 


fSTACK.SP 
SQASE.RO 
TSTQUE.R1 
#1 .STINES 
#31 .STESTN 


START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
(R1) = DEVICE BEING TESTED 
DO 1 ITERATION 

;SET TEST NUMBER IN APT MAIL BOX 


.SETUP PARAMETERS FOR GENERATING DATA BUFFER 


IS: 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 


#559..RNDC0 

#TA2.RNDA0 


.•CYLINDER = 559. 

.TRACK * 2, SECTOR = 0 


#FMT16!SSEI.RM0F0 
#-2.RMWC0 ;2 WORDS 

08UFONE.RMBAO 
fUH.RMCSIO 


;16 BIT FORMAT WITH SSEI SET 
(2'S COMP) 


;DATA BUFFER ADDRESS 
.-WRITE HEADER AND DATA 


.•VERIFY THAT SECTOR IS NOT BAD 


001060 


101716 



J SR 

PC .BADSCT 


BR 

2$ 


TYPE 

.SCTMSG 


EMT 



JMP 

12$ 

2$: 


CMP 

RMDC0.#560. 


BLOS 

3$ 


JMP 

12$ ; 

3$: 


JSR 

PC.GENBUF 

4$: 


TST 

SSFENB 


BEO 

5$ 


BIS 

#SSF. BUFONE 

5$: 

: PREPARE DEVICE 

FOR DATA TRANSFER 


JSR 

PC. TSTPRP 


.WORD 

15*130 


030702 

030704 

050706 

030710 

2162 

2163 

2164 030714 

2165 030714 

2166 030722 

216 7 030726 

2168 030732 

2169 030736 

2170 050742 


000404 

000240 

104000 

000137 031146 


012737 000063 001412 
012702 001555 
112722 000006 
112722 000034 
11$722 000032 
112722 000002 


BR 

HOP 

EMT 

JMP 


6S 


12S 


I OR * DEFINED BY BADSCT SUBROUTINE 
TO 12S IF ERROR 

IS DESIRED CYLINDER. OUTSIDE FE CYLINDERS ? 
NO 1 ' 

yes’ exit test 

GO GENERATE DATA BUFFER 

TEST SSF ENABLE FOR 1ST HEADER WORD 
NO, DO NOT SET " SSF '* 

YES. SET SSF BIT 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER l SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF , *SKr' OR ‘^IP” IS SET 

VERIFY RECALIBRATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 12$ IF ERROR 


.•SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
6 $: 

MOV fWHIGO.RHCSlO 

MOV #PUTINX,R2 

MOVB #RMDA,(R2>* 

MOVR fRMDC.CRZH 

MOVB #RMOF , (R2)+ 

MOVB #RMWC,(R2>+ 


.•WRITE HEADER AND DATA 
.•WRITE REGISTER INDEX TABLE 


S£Q 0139 
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2171 030746 

2172 030752 

2173 030756 

2174 

2175 030762 
030766 
030770 
030772 
030774 

2176 031000 

2177 

2178 

031000 

2179 

2180 

031004 

2181 

2182 031010 
031014 
031016 
031020 
031022 

2183 031026 

2184 

2185 

2186 031026 
031032 
031034 
031036 
031040 
031042 

2187 031046 

2188 031046 
031052 
031054 
031056 
031060 
031062 

2189 031066 

2190 

2191 

2192 031066 

2193 031072 

2194 031100 

2195 

2196 031102 

2197 031106 

2198 031112 

2199 031120 

2200 

2701 031122 

2202 031126 

2203 031132 

2204 031140 

2205 031142 

031146 


112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


000004 

OOOOOO 

000200 

036004 


031146 


004737 035450 


004737 036356 

004737 035534 
000404 
000240 
104000 

000137 031146 


004737 036552 

000405 

000240 

104000 

004736 

000137 031146 

004737 037404 

000405 

000240 

104000 

004736 

000137 031146 


005237 001420 
123727 001420 
101420 

105037 001420 
105237 001421 
123737 001421 
101410 

105037 001421 


005237 001446 
023727 001446 


101002 

000137 


#RMBA. (R2>* 
#RMCSl,<R2>* 
#200. <R2)* 

PC. PUT 

7$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 12S IF ERROR 


.•SETUP GET INDEX TABLE TO READ ALL REGISTERS „ 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


;WAIV FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

JSR PC. GET 

BR 8$ 


;G0 TO TIMOUT SUBROUTINE 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 8S IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 12S IF ERROR 


.•VERIFY RESULTS OF WRITE COMMAND 
JSR PC.PRIERR 

BR 9$ 


PC.a(SP)* 

12i 

PC.SECERR 

10S 


pc.a(sp)* 

i2i 


;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 9$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR # DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 12S IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 10S IF NO ERROR 

.•RETURN HERE IF ERROR 

.‘ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 12S IF ERROR 


000037 


001335 


001446 001060 


030570 


.•INCREMENT ADDRESS 

INC RMDAO , 

CMPB RMDA0.#3l. 

BLOS IIS 

CLRB RMDAO 

INCB RMDAO* 1 

CMPB RMDA0*1,LSTRK*1 
BLOS IIS 

CLRB RMDAO* 1 

INC RMDCO „ ^ 

CMP RMDCO. #560. 

BHI 12S 

IIS: JMP IS 


ADVANCE SECTOR COUNT 
DONE ALL SECTORS ? 

NO !! 

START AT SECTOR 0 AND 
ADVANCE TO NEXT TRACK. 
DONE WITH LAST TRACK ? 

NO ! ! 

START WITH TRACK 0 AND 
ADVANCE TO NEXT CYLINDER. 
DONE WITH LAST CYLINDER ? 
YES " 

GO DO* TEST AGAIN 




SEQ OHO 
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K 11 


1 

2 

3 

4 

5 

6 

7 

8 


.S8TTL END OF SUB-PASS ROUTINE 

THIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 
TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
TO TEST. EXIT IS MADE TO ’SEOP* ROUTINE. OTHERWISE, RETURN 
IS HADE TO ’SHUT* ROUTINE. 


9 031146 

000004 


10 031150 

000240 


11 031152 

013700 

001466 

12 031156 

062700 

000002 

13 031162 

010037 

001466 

14 031166 

005710 


15 031170 

001402 


16 031172 

000137 

031422 

17 031176 

012737 

001470 

18 



19 



20 




00U66 IS: 


SEOSP: SCOPE 
NOP 
MOV 
ADD 
MOV 
TST 
BEQ 
JMP 
MOV 


TSTOUE.RO 
#2,R0 
RO.TSTQUE 
(R0> 

IS 

SHUT 

#TSTQUE+2. TSTOUE 


;GET POINTER TO TSTOUE 
.-ADJUST POINTER TO NEXT DEVICE 
.-SAVE POINTER TO TSTOUE 
;ANY MORE DEVICES FOR TEST ? 

;BR IF NO 

;YES, JUMP TO ’SHUT* ROUTINE 

.-INITIALIZE POINTER TO FIRST DEVICE IN 
.-TEST OUE TABLE 


.S8TTL END OF PASS ROUTINE 


•INCREMENT THE PASS NUMBER (SPASS) 

•TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY 
•WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
•IF THERES A MONITOR GO TO IT 


•IF THERE ISN’T JUMP TO SHUT 


031204 



SEOP: 


031204 

000240 


NOP 


031206 

005037 

001116 

CLR 

STSTNM 

031212 

005037 

001206 

CLR 

STIMES 

031216 

005237 

001230 

INC 

SPASS 

031222 

042737 

100000 001230 

BIC 

#100000, SPASS 

031230 

005327 


DEC 

(PO* 

031232 

000001 


SEOPCT: .WORD 

1 

031234 

003066 


BGT 

SDOAGN 

031236 

012737 


NOV 

<PC)*.a<PC>+ 

031240 

000001 


SENDCT: .WORD 

1 

031242 

031232 


SEOPCT 


031244 

104401 

031252 

TYPE 

,65S 

031250 

000407 


BR 

64$ 




;;65S: .ASCIZ 

<12><15>/END PA: 

031270 



64S: 


031270 

013746 

001230 

MOV 

SPASS, -(SP) 

031274 

104405 


TYPDS 


031276 

005737 

001126 

TST 

SERTTL 

031302 

001431 


BEQ 

SGT42P 

031304 

104401 

031312 

TYPE 

,67$ 

031310 

000421 


BR 

66$ 




;;67S: .ASCIZ 

/ TOTAL ERRORS 

031354 



66S: 


031354 

013746 

001126 

MOV 

SERTTL, -(SP) 

031360 

104405 


TYPDS 


031362 

005037 

001126 

CLR 

SERTTL 


.-.-ZERO THE TEST NUMBER 
.-.-ZERO THE NUMBER OF ITERATIONS 
.-.-INCREMENT THE PASS NUMBER 
.-.-DON'T ALLOW A NEG. NUMBER 
.’.’LOOP? 

;;YES 

;; RES TORE COUNTER 


.-.-TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


SAVE SPASS FOR TYPEOUT 
TYPE PASS NUMBER 

GO TYPE— DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
BR IF NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
NCE LAST REPORT / 

SAVE SERTTL FOR TYPFOUT 
TOTAL NUMBER CF ERRORS 
GO TYPE— DECIMAL ASCII WITH SIGN 
CLEAR ERROR TOTAL 




SCO O 1 *.' 


L 11 


; ; TYPE CARRIAGE RETURN. LINE FEED 
;;GET MONITOR ADDRESS 
; .-BRANCH IF NO MONITOR 
;; CLEAR THE WORLD 
;;GO TO MONITOR 
; ; SAVE ROOM 
• -f no 


;; RE TURN 

;;NULL CHARACTER STRING 


WAS CONTROL C FLAGGED ? 

BR IF YES 

CONTINUE 

ANY MONITOR PRESENT ? 

BR IF YES 
GO TO START 
FUDGE NO DRIVES 
RETURN TO $EOP 



* 11 


r 
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SEQ 0142 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 031456 

39 

40 

41 031456 

42 031464 

43 031470 

44 031474 

45 

46 031500 

47 031504 

48 031510 

49 031512 

50 031514 

51 031516 

52 031522 

53 031530 

54 

55 031534 

56 

57 


.S8TTL TEST PREPARATION MODULE 

; THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST, 

; REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. THE USER 
; SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 
; USING SUBROUTINES. 


CALL: 


JSR 

.kfORD 

BR 

NOP 

ERROR 


PC.TSTPRP 

NNNKNN 


TASK/VERIFY DESCRIPTOR 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY MODULE 


TASK/VERIFY DESCRIPTOR 

BIT 15 = 1 SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 


CLEAR CONTROLLER AND SELECT DEVICE 
(RESERVED FOR DRIVE CLEAR) 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR 
RECALIBRATE DRIVE 


VERIFY CONTROLLER CLEAR OPERATION 


017637 

062716 

105076 

162716 

004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 


000000 032402 
000006 
000000 
000004 

035450 

035534 


000004 

031514 000000 
032372 


BIT 14 
BIT 13 
BIT 12_ 

BIT 11 
BIT 10 
BIT 9 

BIT I 
BIT 7 
BIT 6 

BIT 5 
BIT 4 
BIT 3 

BIT 2 
BIT 1 
BIT 0 


TSTPRP: 

.•STORE TASK DESCRIPTOR AND CLEAR USER’S ERROR CALL 


(RESERVED FOR DRIVE CLEAR) 
VERIFY PACK ACKNOWLEDGE 
VERIFY RECALIBRATION 


013737 001400 032404 



MOV 

8(SP) .39$ 

STORE DESCRIPTOR 


ADD 

*6.(SP) 

MOVE SP TO USERS ERROR CALL 


CLRB 

i(SP) 

CLEAR ERROR CALL 


SUB 

#4 ,(SP) 

MOVE SP TO NO ERROR RETURN 


JSR 

PC.GETSTS 

SETUP TO READ ALL REGISTERS 


JSR 

PC. GET 

GET RMER2 


BR 

2$ 

BR IF NO ERROR DETECTED 


BR 

1$ 

GET OVER ERROR NUMBER 


.WORD 

0 

ERROR DEFINED BY GET SUBROUTINE 1 

1$: 

ADD 

#4.(SP) 

XFER ERROR TO USER AND 

MOVB 

JMP 

i$-2.a(sp) 

37$ 

GET ERROR NUMBER. 

2$: 

MOV 

RMER2I ,40$ 

;GET RMER2 AND SAVE FOR LATER 


********* 

****************** 
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N 11 


SEO OUi 


58 

59 031 542 

60 031 546 

61 

62 031550 

63 031 554 

64 031556 

65 031560 

66 031562 

67 031566 

68 031574 

69 

70 

71 

72 

73 

74 

75 

76 031610 

77 031614 

78 031616 

79 031620 

80 031622 
031 o26 
031634 


031 oOO 
031600 
031606 


87 

88 

89 

90 

91 

92 

93 

94 

95 


99 

100 

101 


005737 

100014 

004737 

000411 

000401 

000000 

062716 

113776 

000137 


81 
82 

83 

84 

85 

86 031640 
031640 
031646 


031650 
031654 
031656 
031660 
031662 
031666 

96 031674 

97 

98 031700 
031704 
031706 
031710 

102 031712 

103 031714 

104 031720 

105 031726 

106 


032402 

043762 


000004 

031560 

032372 


.’SELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK 
TST 39$ .-SELECT DEVICE?? 

BPL 4$ ;N0!! 


000000 


3$: 


JSR 

BR 

BR 

.WORD 

ADD 

MOVB 

JMP 


PC.DEVSEL 

4$ 

3$ 

0 

#4, (SP) 

3$-2.a<SP) 

37$ 


;G0 SELECT DEVICE 
;N0 ERROR - CONTINUE 

.•ERROR NUMBER FROM DEVSEL 
.-TRANSFER ERROR TO USER 


• -A************************************************************** 

’CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 
4$: 


032737 

040000 

032402 


BIT 

#BIT14,39$ 

.’CLEAR CONTROLLER?? 

001451 




BEQ 

13$ 

;N0! ! 

004737 

045454 



JSR 

PC.CNTCLR 

;G0 CLEAR CONTROLLER 

000411 



BR 

7$ 

.CONTINUE - NO ERROR 

000401 




BR 

6$ 


000000 



5$: 

.WORD 

0 

.’ERROR NUMBER FROM CNTCLR 

062716 

000004 


6$: 

ADD 

#4, (SP) 

.’TRANSFER ERROR TO USER 

113776 

031620 

000000 


MOVB 

5$.b(sp> 

37$ 


000137 

032372 



JMP 



:*************************************************************** 


•VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 

H: 


032737 

000100 

032402 


BIT 

#BIT6,39$ 

.•VERIFY?? 

001431 




BEQ 

13$ 

;N0! ! 

004737 

035534 



JSR 

PC.GET 

;G0 GET STATUS 

000411 




BR 

10$ 

;N0 ERROR GETTING STATUS 

000401 




BR 

9$ 


000000 



8$: 

.WORD 

0 

.•ERROR FROM GETTING STATUS 

062716 

000004 


9$: 

ADD 

#4,<SP) 

; TRANSFER ERROR TO USER 

113776 

031660 

000000 


MOVB 

8$.a(SP) 


000137 

032372 



JMP 

37$ 


004737 

045572 


10$: 

JSR 

PC.CLRSTS 

;G0 VERIFY STATUS CLEAR 

000412 




BR 

13$ 

;N0 ERROR IN CLEAR 

000401 




BR 

12$ 


000000 



11$: 

.WORD 

0 

.•ERROR IN STATUS CLEAR 

005726 



12$: 

TST 

(SP) + 

.’STRIP RETURN ADDRESS TO 

062716 

000004 



ADD 

#4.(SP) 

.•SUBROUTINE AND TRANSFER 

113776 

031710 

000000 


MOVB 

ii$.a(SP> 

.•ERROR TO USER 

000137 

032372 



JMP 

37$ 



107 



•;***********< 


108 



.EXECUTE PACK ACKNOWLEDGE 

109 



:NOT VALID 


110 031732 



i3$: 


111 031732 

032737 

010000 032402 

BIT 

#8IT12.39S 

112 031740 

001501 


BEQ 

25$ 

113 





114 031742 

004737 

035534 

JSR 

PC.GET 


.-PACK ACKNOWLEDGE?? 
;N0! ! 
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SEQ 0144 


115 031746 

116 031750 

117 031752 

118 031754 

119 031760 

120 031766 

121 

122 031772 

123 032000 

124 

125 032002 

126 032010 

127 032016 

128 032024 

129 032030 

130 032032 

131 032034 

132 032036 

133 032042 

134 032050 

135 

136 032052 

137 

138 

139 

140 032056 

141 032064 

142 

143 032066 

144 032072 

145 032074 

146 032076 

147 032100 

148 032104 

149 0321 1 1 

150 

151 032114 

152 032120 

153 032122 

154 032124 

155 032126 

156 032130 

157 032134 

158 032142 

159 

160 
161 
162 

163 

164 032144 

165 032144 

166 032152 

167 032154 

168 032162 

169 

170 052164 

171 032170 


000411 

000401 

000000 

062716 

113776 

000137 

032737 

001061 

012737 

112737 

112737 

004737 

000410 

000401 

000000 

062716 

113776 

000550 


000004 

031752 

032372 


000023 

000000 

000200 

036004 


000004 

032034 


032737 

001427 

004737 

000410 

000401 

000000 

062716 

113776 

000527 

004737 

000411 

000401 

000000 

005726 

062716 

113776 

000513 


000000 


000100 001350 


001412 

001555 

001556 


000000 


004737 036356 


000020 032402 


035534 


000004 

032076 


046452 


000004 

032124 


032757 

001027 

032737 

001505 

004737 

000410 


BR 

BR 

.WORD 

ADD 

MOVB 

JMP 


MOV 

MOVB 

MOVB 

JSR 

BR 

BR 

.WORD 

ADD 

MOVB 

BR 


16S 

15$ 

0 

#4.(SP) 

us.acsp) 

37$ 

#VV,RMDSI 

25$ 


;N0 ERROR GETTING RMDS 


.•TRANSFER ERROR TO USER 


;IS VOLUME VALID?? 
; YES* ! 


#PAKACK!G0,RMCS10 ;LOAD PACK ACK COMMAND 

#RMCS1 .PUTINX .-SETUP REGISTER INDEX TABLE 
#200,PUTINX*1 

PC. PUT ;G0 WRITE COMMAND 

19$ ;N0 ERROR LOADING REGISTER 


PC, PUT 
i9i 
18$ 

0 

#4, (SP) 

i7$,a(SP) 

37$ 


000000 


000000 


19$: 

JSR 

PC.TIMOUT 


•VERIFY PACK ACKNOWLEDGE IF 

#BIT4 


BIT 

#8IT4,39$ 

0 


BEQ 

25$ 

;i 


JSR 

PC. GET 

; 


BR 

22i 

;i 


BR 

21$ 


20$: 

.WORD 

0 

• 

# 1 

21$: 

ADD 

#4, (SP) 

0 


MOVB 

20$,a(SP) 



BR 

37$ 


22$: 

JSR 

PC.ACKSTS 



BR 

25$ 

: 


BR 

24$ 


23$: 

.WORD 

0 

• 

24$: 

TST 

<SP>* 

• 


ADD 

#4, (SP) 

4 


MOVB 

23i.a<sp) 



BR 

37$ 



.•ERROR FROM PUT SUB 
.-TRANSFER ERROR TO USER 


.-WAIT FOR COMMAND TO COMPLETE 


STRIP RETURN TO SUB AND 


RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND "SKI" IS SET 
OR 'PIP" IS ACTIVE. 

RECALIBRATE DRIVE IF BIT 10 IS SET 


002000 032402 
004000 032402 


035534 


BIT 

#BIT10,39$ 

.•RECALIBRATE DRIVE ? 

BNE 

29$ 

; YES* ! 1 

BIT 

#81 Til. 39$ 

.•RECALIBRATE?? 

BED 

38$ 

;N0! ! 

JSR 

PC, GET 

;G0 GET RMDS 

BR 

28i 

;N0 ERROR GETTING RMDS 


I 


SEQ 0145 


C 12 
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172 

032172 

000401 




BR 

27$ 

.•ERROR FRON GET SUB 

173 

032174 

OOOQOO 



26$: 

.WORD 

0 

174 

032176 

062716 

000004 


27$: 

ADD 

#4. (SP) 

26$,a(SP) 

.•TRANSFER ERROR TO USER 

175 

032202 

113776 

032174 

000000 


MOVB 


176 

177 

178 

032210 

000470 




BR 

37$ 


032212 

032737 

040000 

032404 

28$: 

BIT 

#SKI.40$ 

;UAS SKI SET ? 

179 

032220 

001004 




BNE 

29$ 

; YES, GO RECALIBRATE 

180 

032222 

032737 

020000 

001350 


BIT 

fPIP.RNDSI 

;IS PIP ACTIVE?? 

181 

182 

183 

032230 

001462 




BEQ 

38$ 

;N0! ! 

032232 

012737 

000007 

001412 

29$: 

NOV 

#RE CAL ! GO , RNC S 1 C 

.-LOAD RECALIBRATE CONNAND 

184 

032240 

112737 

000000 

001555 


NOVB 

#RNCS1 .PUTINX 

;AND REGISTER INDEX 

185 

032246 

112737 

000200 

001556 


NOVB 

#200,PUTINX+1 

.-SET TERNINATOR 

186 

032254 

004737 

036004 



JSR 

PC, PUT 

3ii 

;G0 ISSUE RECALIBRATE 

187 

032260 

000410 




BR 

;N0 ERROR 

188 

032262 

000401 




BR 

30$ 


189 

032264 

000000 




.WORD 

0 

.•ERROR IN REGISTER TRANSFER 

190 

032266 

062716 

000004 


30$: 

ADD 

#4, (SP) 

.•TRANSFER ERROR TO USER 

191 

032272 

113776 

032264 

000000 


NOVB 

30$-2,a(SP) 


192 

193 

194 

195 

196 

032300 

000434 




BR 

37$ 


032302 

004737 

036356 


31$: 

JSR 

PC.TINOUT 

.•WAIT FOR CONPLETION 





• • *************************************************************** 

197 





•VERIFY RECALIBRATE IF BIT 3 SET IN TASK 

198 

032306 

032737 

000010 

032402 


BIT 

08IT3,39$ 

.•VERIFY RECALIBRATE?? 

199 

200 
201 

032314 

001430 




BEQ 

38$ 

;N0! ! 

032316 

004737 

035534 



JSR 

PC. GET 

;60 GET STATUS 

202 

032322 

000410 




BR 

34i 

;N0 ERROR GETTING STATUS 

203 

032324 

000401 




BR 

33$ 


204 

032326 

000000 



32$: 

.WORD 

0 

.'ERROR FRON GET 

205 

032330 

062716 

000004 


33$: 

ADD 

#4.(SP) 

.•TRANSFER ERROR TO USER 

206 

032334 

113776 

032326 

000000 


NOVB 

32$,a(SP) 


">07 

208 

209 

032342 

000413 




BR 

37$ 


032344 

004737 

047246 


34$: 

JSR 

PC.RCLSTS 

38$ 

;G0 CHECK RECALIBRATE 

210 

032350 

000412 



BR 

;N0 ERROR DURING RECALIBRATE 

211 

032352 

000401 




BR 

36$ 

.•ERROR DURING RECALIBRATE 

212 

032354 

000000 



35$: 

.WORD 

0 

213 

032356 

005726 



36$: 

TST 

<SP) + 

.‘STRIP RETURN TO SUB AND 

214 

032360 

062716 

000004 



ADD 

#4.(SP) 

.•TRANSFER ERROR TO USER 

215 

m 

113776 

032354 

000000 


NOVB 

35$.a<SP> 

;NOVE SP BACK BEFORE ERROR 

216 

162716 

000002 


37$: 

SUB 

02 ASP) 

217 

032376 

000240 



38$: 

NOP 


.•RETURN TO USER 

218 

219 

220 

032400 

000207 




RTS 

PC 

032402 

000000 



39$: 

.WORD 

0 

; TASK/VERIFY DESCRIPTOR 

221 

032404 

000000 



40$: 

.WORD 

0 

.•CONTAINS RNER2 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 032406 

34 032412 

35 032416 

36 

37 

38 

39 032422 

40 0324* 

41 0324 

8 

44 

45 

46 032434 
032434 

47 032436 

48 032440 

49 032446 

50 032452 

51 032456 

!i 

54 

55 032460 

56 032466 


062716 

105076 

162716 


005737 

001402 

000137 


000006 

000000 

000006 


001512 

033764 


010046 

005000 

016060 001412 
062700 000002 
022700 000046 
103370 


012737 000003 
012737 001057 


.S8TTL BAD SECTOR MODULE 

THE MODULE IS INTENDED TO BE CALLED PRIOR TO CALLING THE BUFFER 
GENERATOR SUBROUTINE, AND PRESERVES THE T»UT BUFFER SO THAT THE 
BUFFER NEED ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 
OPERATION. 

THE MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR, ASSIGNED 
SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ASNDA AND *ASNDC 
SO THAT A REFERENCE !S AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER. 

THE BAD SECTOR MODULE PERFO.'iMS TWO MAJOR FUNCTIONS: 

(1) RECOVER THE BAD SECTOR FILES AND 

(2) APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN 
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF THE ONE 
ELECTED IS NOT AVAILABLE FOR USE. 

INFORMATION REQUIRED BY THE MODULE INCLUDES: 

(1) .RTDCO - THE DESIRED CYLINDER, 

(2) .RMDAO - THE TRACK AND SECTOR ADDRESS, 

(3) .RMWCO - THE WORD COUNT. 

(4) .RMCS10 - THE COMMAND, 

(5) .RMOFO - THE FORMAT MODE AND SKIP SECTOR ERROR INHIBIT. 


CALL: 


JSR 

BR 

TYPE 

ERROR 


PC.BADSCT 

‘.MESSAGE 


CALL SUBROUTINE 

RETURN HERE IF NO ERROR 

RETURN HERE IF THE BAD SECTOR FILE 

CANNOT BE RECOVERED. 

THE EHT OFFSET NUMBER ‘N* IS DEFINED 
BY BAD SECTOR MODULE. 

CLEAR ERROR NUMBER IN USER'S 
ERROR CALL. 


BADSCT : ADD #6.(S P) 

CLRB B(SP) 

SUB #6, (SP) 

.-TEST 'MEDIA ENABLE" TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
.-HAVE BEEN RECOVERED. 


TST 

BEO 

JMP 


MEDEN8 

1 $ 

56$ 


HAVE BAD SECTOR FILES BEEN RECOVERED 
BR IF NO 

YES. BAD SECTOR FILE IS AVAILABLE 


101716 2$: 


RECOVER SKIP SECTOR FILE FROM CYLINDER = 559.. TRACK * 0 AND 
RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER =558.. 
.TRACK = LAST TRACK (RM80 = 13.). ALSO. SAVE THE USER'S PUT BUFFER 

$ ‘ RO.-(SP) .-.‘PUSH RO ON STACK 

RO .‘START WITH RMCS1 

PUT8UF (RO) .BUFFER(RO) 

#2.R0 .ADVANCE TO NEXT BUFFER POSITION 

#46, RO ;END OF BUFFER 

2$ .’NO ! ! 


MOV 

CLR 

MOV 

ADD 

CMP 

BHIS 


;SET RETRY COUNT AND LOAD PUT BUFFER AND ^GISTER INDEX TABLE 
.•SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST (3 SECTORS) 
034500 MOV #3.74$ .-RETRY COUNT 

001446 MOV #5$9..RMDCO .-DESIRED CYLINDER = 559. 
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SEO 0K7 


57 032474 

58 032502 

59 0325 <0 

60 032516 

61 

62 032524 

63 032530 

64 032534 

65 032540 

66 032544 

67 032550 

68 032554 

69 032560 

70 032564 

71 

72 

73 032566 

74 032566 

75 032572 

76 032576 

77 032600 

78 032602 

79 032604 

80 032610 

81 032616 

82 

83 032622 

84 

85 

86 03263C 

87 032636 

88 032642 
39 032644 
90 032646 
VI 032650 

92 032654 

93 032662 

94 

95 032666 

96 032672 

97 032676 

98 032700 

99 032702 

100 032704 

101 032710 

102 032716 

103 

104 032722 

105 032726 

106 032730 

107 032732 

108 032734 

109 032736 

110 032742 

111 032750 

11 2 
113 


012737 

012737 

012737 

012737 

012700 

112720 

112720 

112720 

112720 

112720 

112720 

112720 

012600 


004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

013737 


012737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

000412 

000401 

000000 

005726 

062716 

113776 

000137 


000000 

001420 

MOV 

176372 

001414 

MOV 

010000 

001444 

MOV 

102722 

001416 

MOV 

001555 


MOV 

000006 


MO VS 

000034 


Move 

000002 


M0V8 

000032 


Move 

000004 


M0VS 



Move 

000200 


Move 

MOV 


#O.RMDAO 
#-258.*3,RMWC0 
#FMT16,RM0FQ 
#BUf TWO.RMBAO 

fPUTINX.RO 
fRMDA. CRO) ♦ 
#RMDC,(R0)* 
#RMWC.(R0)* 
#RMOF.(RO)* 
#RMBA.(R0)* 
#RMCS1 , <R0) ♦ 
#200. (RO)* 
(SP)*.RO 


.'STARTIN6 TRACK = 0. SECTOR = 0 
; 258. * 3 SECTORS (2’S COMP) 

;16 BIT FORMAT 

; SETUP BUS .ADDRESS TO READ SKI? SECTOR FILE 
;R0 POINTS TO RE6ISTER INDEX TABLE 


:;POP STACK INTO RO 


il £T 


6ET INDEX TABLE FOR READING STATUS 


035450 



JSR 

PC.GETSTS 

035534 



JSR 

PC. GET 




BR 

5$ ;1 




BR 

4$ 




.WORD 

0 

000006 


4$: 

ADD 

#6. CSP) 

032602 

000000 


movb 

4$-2.B(SP) 

033412 



JMP 

42$ 

001400 

034512 

5$: 

MOV 

RMER2I.79$ ; 



; CLEAR 

THE DEVICE USING DRIVE CLE 

000011 

001412 


MOV 

fDRVCLR iGO.RMCSIO 

036004 



JSR 

PC. PUT 




BR 

8$ 




BR 

7$ 



6$: 

.WORD 

0 

000006 


7$: 

ADD 

#6.<SP) 

032546 

000000 


MOVB 

6$.8(SP) 

0334.2 



JMP 

42i 

036356 


8$: 

JSR 

PC.TIMOUT 

035534 



JSR 

PC. GET 




BR 

ni 




BR 

10$ 



9$: 

.WORD 

0 

000006 


10$: 

ADD 

#6. (SP) 

032702 

000000 


MOVB 

9$.B(SP) 

033412 



JMP 

42i 

051010 


11$: 

JSR 

PC.DRVSTS 




BR 

14$ 




BR 

13$ 



12$: 

.WORD 

0 



13$: 

TST 

(SP)* 

000006 



ADD 

#6, (SP) 

032732 

000000 


MOVB 

12$.i(SP) 

033412 



JMP 

42$ 


INDEX REGISTER FOR STATUS 


GET SUB 
:R AND 


;6tT RMER2 AND SAVE FOR LATER 


;LOAD COMMAND IN PUT BUFFER 


# COES HERE 


GO GET STATUS 
RETURN HERE IF NO ERROR 
GET AROUND ERROR # 

ERROR # GOES HERE 

E SP TO USERS ERROR CALL 
E ERROR # TO USERS ERROR CALL 


GO VERIFY DRIVE CLEAR COMMAND 
RETURN HERE IF NO ERROR 
GET AROUND ERROR 
ERROR # GOES HERE 
STRIP RETURN TO SUBROUTINE 
E SP TO USERS ERROR CALL 
E ERROR # TO USER CALL 


.'ISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 


SEQ 0148 
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114 032754 

115 032754 

116 032762 

117 

118 032764 

119 032772 

120 032776 
033000 
033002 
033004 
033010 
033016 


121 
122 

123 

124 

125 

126 

127 033022 

128 033026 

129 033032 

130 033034 

131 033036 

132 033040 

133 033044 

134 033052 

135 

136 033056 

137 033062 

138 033064 

139 033066 
033070 
033072 
033076 
033104 


140 

141 

142 

143 

144 

145 

146 033110 

147 033110 

148 033116 

149 033120 

150 033126 

151 

152 033130 

153 033136 

154 033142 

155 033144 

ir 

!!* 

160 
161 

?3$ 

164 

165 

1» 

168 

1?0 033222 



032737 

001052 

012737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

000412 

000401 

oooooo 

005726 

062716 

113776 

000137 


032737 

001004 

032737 

001452 

012737 
004*37 
*11 
101 



>16 
113776 
000137 

004737 

004737 

000411 





14$: 




000100 

001350 


BIT 

#W, RMDSI 

IS VV RESET ?? 




BNE 

23$ 

NO !! 

000023 

001412 


MOV 

#PACACK!G0,RMCS10 ;LOAD COMMAND 

036004 



JSR 

PC-PUT 

GO PUT COMMAND TO DRIVE 




BR 

17i 

RETURN HERE IF NO OUTPUT ERROR 




BR 

16$ 

GET AROUND ERROR # 



15$: 

.WORD 

0 

ERROR # GOES HERE 

000006 


16$: 

ADD 

#6-(SP) 

MOVE SP TO USERS ERROR CALL 

033002 

OOOOOO 


Move 

i5$,a<sp> 

MOVE ERROR # TO ERROR CALL 

033412 



JMP 

42$ 


036356 


17$: 

JSR 

PC,TIMOUT 

WAIT FOR COMPLETION 

035534 



JSR 

PC -GET 

GO GET STATUS FOR PACK ACK 




BR 

20i 

RETURN HERE IF NO ERROR 




BR 

19$ 

GET AROUND ERROR # 



18$: 

.WORD 

0 

ERROR • GOES HERE 

000006 


19$: 

ADD 

#6, (SP) 

MOVE SP TO USERS ERROR CALL 

033036 

OOOOOO 


Move 

is$,a<sp> 

MOVE ERROR # TO CALL 

033412 



JMP 

42$ 


046452 


20$: 

JSR 

PC-ACKSTS 

;G0 VERIFY ACKNOWLEDGE STATUS 




BR 

23i 

; RETURN HERE IF NO ERROR 




BR 

22$ 

;GET AROUND ERROR # 



21$: 

.WORD 

0 

; ERROR » GOES HERE 



22$: 

TST 

(SP)* 

.•STRIP RETURN TO SUBROUTINE 

000006 



ADD 

#6-(SP) 

.MOVE SP TO USERS ERROR CALL 

033066 

OOOOOO 


M0V8 

2ii.acsp) 

.-MOVE ERROR # TO USERS ERROR CALL 

033412 



JMP 

42$ 



040000 034512 
020000 001350 


000007 001412 
036004 


; RE CALIBRATE THE DRIVE IF **SKr* OR ’PIP IS SET 

53$: 

BIT #SKI,79$ 

BNE 24$ 

BIT *PIP. RMDSI 

BEQ 32$ 


WAS SKI SET ? 

YES, GO RECALIBRATE 
IS PIP SET ?? 

NO !! 


033146 OOOOOO 
033412 

036356 

035534 


OOOOOO 


004737 047246 


24$: 

25$: 

26$: 


27$: 

28$: 


29$: 


MOV #RECAL!G0.RMCS10 

JSR PC, PUT 

BR 26i 

BR 25$ 

.WORD 0 

ADD #6-<SP) 

Move 25$-2.a(SP) 

JMP 42$ 

JSR PC,TIM0UT 

JSR PC.6ET 

BR M 

BR 28$ 

.WORD 0 

A.+D #6-(SP) 

M0V8 27$,i(SP> 

JMP 42$ 

JSR PC.RCLSTS 


;LOAD RECALIBRATE COMMAND 
PUT THE RECAL COMMAND 
RETURN HERE IF NO ERROR 
GET AROUND ERROR # 

ERROR # GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR # TO USERS CALL 


WAIT FOR RECALIBRATE TO COMPLETE 
GO GET RECAL STATUS 
RETURN HERE IF NO ERROR 
GET AROUND ERROR » 

ERROR « GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR TO USERS CALL 


;G0 VERIFY RECALIBRATE STATUS 


SEO 0149 
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171 033226 

172 033230 

1 73 033232 

174 033234 

175 033236 

176 033242 

177 033250 

178 

179 

180 033254 

181 033254 

182 033262 

183 033266 

184 033270 

185 033272 

186 033274 

187 033300 

188 033306 

189 

190 033312 

191 033316 

192 033322 

193 033324 

194 033326 

195 033330 

196 033334 

197 033342 

198 

199 033346 

200 033352 

201 033354 

202 033356 

203 033360 

204 033362 

205 033366 

206 033374 

207 

20 8 033400 

209 033406 

210 033410 

211 


216 033412 

217 033416 

2 18 

219 

220 

221 033420 

222 033426 


000412 

000401 


005726 

062V16 000006 
113776 033232 
000137 033412 


012737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

000412 

000401 

000000 

005726 

062716 

113776 

000137 

032737 

001001 

000477 


000073 

036004 


000006 

033272 

033412 

036356 

035534 


000006 

033326 

033412 

051612 


000006 

033356 

033412 


000000 


001412 


000000 


B R 

32$ 

.•RETURN HERE IF NO ERROR 

BR 

31$ 

.-GET AROUND ERROR # 

.WORD 

0 

.•ERROR # GOES HERE 

TST 

(SP)* 

.‘STRIP RETURN TO SUBROUTINE 

ADD 

#6.(SP) 

.•MOVE SP TO USERS ERROR CALL 

M0V8 

30$.i(SP) 

;MOVE ERROR # TO USW* CALL 

JMP 

42$ 



000000 


000000 


040000 001336 


;RFAD 

THE SECTOR IDENTIFIED BY 

$2$: 

MOV 

PRH1G0.RMCS10 


JSR 

PC .PUT 


BR 

35$ 


BR 

34$ 

33$: 

.WORD 

0 

34$: 

ADD 

#6. (SP) 

M0V8 

33i.a<sp> 


JMP 

42$ 

35$: 

JSR 

PC.TIMOUT 


JSR 

PC. GET 


BR 

38$ 


BR 

37$ 

36$: 

.WORD 

0 

37$: 

ADD 

#6.(SP) 

MOVB 

36$,8(SP> 


JMP 

42$ 

38$: 

JSR 

PC.DTASTS 

BR 

41$ 


BR 

40$ 

39$: 

.WORD 

0 

40$: 

TST 

(SP)* 


ADD 

#6.(SP) 


MOVB 

39$.a(SP) 


JMP 

42$ 

41$: 

BIT 

#TR£.RMCS1I 


BNE 

42$ 


BR 

51$ 


LOAD READ HEADER AND DATA COMMAND 
PUT COMMAND 

RETURN HERE IF NO ERROR 
GET AROUND ERROR # 

ERROR t GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR * TO USERS ERROR CALL 


UAIT FOR READ OPERATION TO COMPLETE 
GO GET STATUS FOR READ OPERATION 
RETURN HERE IF NO ERROR 
GET AROUND ERROR * 

ERROR # GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR * TO CALL 


GO VERIFY RESULTS OF READ OPERATION 
RETURN HERE IF NO ERROR 
GET AROUND ERROR « 

ERROR # GOES HERE 
STRIP RETURN ADDRESS TO SUBROUTINE 
MOVE SP TO USERS ERROR CALL 
MOVE ERROR # TO USERS CALL 


;ANY CONTROLLER ERRORS ? 

•DD tc yce 

•NO ERRORS DETECTED 


224 033430 

225 033436 


005337 034500 
001057 


032737 100720 
001004 

032737 100040 
001453 


001352 


001400 


•AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 

;THE SECTOR WILL BE RETRIED IF POSSIBLE. 

42$: DEC 74$ .YES, DECREMENT RETRY COUNT AND 

BNE 48$ ;RET&Y if count is positive 

;THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 

BIT #DCK ! HCRC ! HCE ! FER 1 ECH.RMER1 I ;ANY MEOI A RELATED ERRORS ? 

BNE 43$ ;YES, GO TRY NEXT AVAILABLE SECTOR 

BIT #8SE!SSE.RMER2I ;ANY MEDIA RELATED ERRORS ? 

BEQ 49$ ;N0, EXIT AND REPORT ERROR ON RETURN 

;THE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE 
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228 

229 

230 

231 033440 

232 033446 

233 033450 
23A 

235 033454 

236 033462 

237 

238 033464 

239 033472 

240 033500 

241 033502 

242 033506 

243 033514 

244 033516 

245 

246 033520 

247 033526 

248 033530 

249 033536 

250 033540 

251 033546 

252 

253 033550 

254 033556 

255 033562 

256 

257 

258 033566 

259 033566 

260 033570 

261 033576 

262 033600 

263 033604 

264 

265 

266 

267 033610 

268 033610 

269 033616 

270 033620 

27 1 

272 031 

273 031 

274 033 

275 0£ 

i» SL, 

278 033664 

279 033664 

280 033672 
?81 033674 

* °% 



;DUE TO THE MEDIA. SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM 
.'ANOTHER AREA ON THE LAST TRACK 

SSE ERROR ? 

NO i < 

DISPLACE SECTOR ADDRESS BY 1 TO 
ACCOUNT FOR THE SKIP SECTOR ERROR 
AND SET SSE I IN OFFSET REGISTER. 

TRY AGAIN 

ADVANCE SECTOR ADDRESS BY 2 
READING DEC 144 BAD SECTOR FILE ? 

YES 1 ' 

IF READING SSF. THEN ADVANCE SECTOR ADDRESS BY 1 
QUIT IF ALL SSF SECTORS HAVE BEEN 
TRIED. 


READING MANUFACTURES BAD FILE ? 

NO 1 ' 

QUIT* IF ALL MFG SECTORS HAVE BEEN 
TRIED. 

QUIT IF ALL USER SECTORS HAVE BEEN 
TRIED. 

REINSTATE RETRY COUNT FOR THIS SECTOR 
MOVE SP BACK TO NO ERROR 
RETRY THE READ OPERATION 


INHIBIT MESSAGE ? 

YES 

MOVE SP TO ERROR RETURN 
GO TO MODULE EXIT 

;THE SECTOR UAS RECOVERED WITHOUT ERROR - READ THE MFG/USER FILE IF 
;THIS IS THE SSF FILE OR ELSE DONE. 

READING DEC 144 FILES ? 

YES ' 1 

GET SKIP SECTOR FILE FOR USE 

READ DEC 144 FILE. CYLINDER 558. 
MFG FILE LAST TRACK. SECTOR = 0 
16 BIT FORMAT 

POINT TO MANUFACTURES FILE BUFFER 
2 * 256. WORDS (2'S COMP) 

GO READ MFG FILE 


032737 

000040 

001400 

43$: 

BIT 

#SSE.RNER2I 

001406 




BEQ 

44$ 

005237 

001420 



INC 

RMDAO 

052737 

001000 

001444 


BIS 

#SSEJ,RMOFO 

000432 




BR 

47$ 

062737 

000002 

001420 

44$: 

ADD 

#2 .RMDAO 

022737 

001056 

001446 


CMP 

#558. .RMDCO 

001407 




BEQ 

45$ 

005237 

001420 



INC 

RMDAO 

122737 

000017 

001420 


CMPB 

#15., RMDAO 

101424 




BLOS 

49$ 

000414 




BR 

47$ 

022737 

103726 

001416 

45$: 

CMP 

#MFGFIL,RMBAO 

001004 




BNE 

46$ 

122737 

000012 

001420 


CMPB 

#10. .RMDAO 

101413 




BLOS 

49$ 

122737 

000040 

001420 

46$: 

CMPB 

#32., RMDAO 

101407 




BLOS 

49$ 

012737 

000003 

034500 

47$: 

MOV 

#3.74$ 

162716 

000006 


48$: 

SUB 

#6,(SP> 

000137 

032566 



JMP 

3$ 




;THE 

BAD SECTOR 

FILE CANNOT BE 




49$: 



000240 




NOP 


032777 

020000 

145356 


BIT 

#SWl3,aSWR 

001002 




BNE 

50$ 

162716 

000004 



SUB 

#4.(SP) 

000137 

034474 


50$: 

JMP 

73$ 


284 


031 


022737 

001056 

001446 

CMP 

#558.. RMDCO 

001422 


BEQ 

52$ 

004737 

034514 


JSR 

PC.GETSSF 

012737 

001056 

001446 

MOV 

#558., RMDCO 

013737 

001334 

001420 

MOV 

LSTRK. RMDAO 
#FHT16,RN0F0 

012737 

010000 

001444 

MOV 

012737 

103726 

001416 

MOV 

#MFGFIL.RMBAO 

012737 

177376 

001414 

MOV 

#-258. .RMWCO 

000415 



BR 

53$ 


52$: 



022737 

104734 

001416 

CMP 

#USRFIL,RMBAO 

001416 



BEQ 

54$ 

112737 

012737 

000012 

104734 

001420 

001416 

MO VS 
MOV 

#10., RMDAO 
#USRFIL,RMBAO 

012737 

010000 

001444 

NOV 

#FMT16,RN0F0 


WAS THE USER FILE READ ?? 

YES - READ IS COMPLETE 

READ THE USER FILE LAST TRACK, SECTOR 

POINT TO USERS FILE BUFFER 

16 BIT FORMAT 


= 10 . 


MORE 


r 
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SEQ 0151 


285 033716 

286 033724 

287 
283 

289 033730 
033730 

290 033732 

291 033734 

292 033742 

293 033750 

294 033754 

295 033760 
2% 033762 

297 

298 

299 

300 

301 

302 

303 

304 

305 033764 
033764 
033766 
033770 

306 033772 

307 034000 

308 034006 

309 034010 

310 034014 

311 034016 

312 034022 

313 034030 

314 034032 

315 034036 

316 034040 

317 034042 

318 034044 

319 034046 

320 034050 

321 034052 

322 034054 

3 23 034056 

324 034060 

325 

326 

327 

328 

329 

330 034064 

331 

332 034072 

333 034076 

334 

335 034104 

336 034110 

337 


012737 000003 034500 
000137 032566 


010046 

005000 

012737 177777 001512 
016060 101716 001412 
062700 000002 
022700 000046 
103370 
012600 


#3,74$ 

3$ 


.•RELOAD THE RETRY COUNT FOR THIS SECTOR 
;G0 READ THE USER FILE 


•SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 
$4$: 

MOV RO.-(SP) ;;PUSH RO ON STACK 

CLR RO ;R0 IS REGISTER INDEX 

xnv f.i Hcncin 

55$: MOV BUFFER (RO) .PUTBUF <R0) 

ADD #2.R0 .-ADVANCE RO 


#2.R0 
#46. RO 
55$ 

(SPH.RO 


.•ADVANCE RO 
.•DONE ?? 

;;POP STACK INTO RO 


• ft************************************************************** 

VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE, 
NOT IN THE USERS BAD SECTOR FILE AND NOT IN THE SSF BAD SECTOR FILE. 
ASSIGN A NEW SECTOR IF THE SECTOR IS IN ANY OF THE FILES. 


010046 

010146 

010246 

013737 001446 001516 
013737 001420 001520 
005002 

013700 001414 
005400 

012701 000400 
032737 000002 001412 
001402 

012701 000402 
020100 
101404 
005700 
001405 
005202 
000403 
160100 
005202 
000767 

010237 034500 


012737 103742 034510 

004737 034132 
012737 104750 034510 

004737 034132 
012737 105746 034510 


;LOAD INITIAL 

$ 6 $: 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

NEG 

MOV 

BIT 

BEG 

MOV 

57$: CMP 

BLOS 
TST 
BEG 
INC 
BR 

58$: SUB 

INC 

59$: MOV 


VARIABLES AND COMPUTE THE NUMBER OF SECTORS 


RO. -(SP) 

R1. -(SP) 
R2,-(SP) 
RMDCO.ASNDC 
RMDAO.ASNDA 
R 2 

RMWCO.RO 

RO 

#256. ,R1 
#81 T1 .RMCS10 
57$ 

#258.. R1 

R1.R0 

58i 

RO 

59$ 

R 2 
59$ 

R1.R0 
R 2 
57$ 

R2.74$ 


.-PUSH RO ON STACK 
;PUSH R1 ON STACK 
.'PUSH R2 ON STACK 
LOAD REQUESTED CYLINDER, TRACK, 

AND SECTOR ADDRESS IN ASSIGNED STORAGE 

R2 = NUMBER OF SECTORS 

RO = WORD COUNT 

MAKE NUMBER POSITIVE 

R1 = NUMBER OF WORDS PER SECTOR 

IS THIS A HEADER AND DATA COMMAND ?? 

NO ! ! 

CHANGE WORDS PER SECTOR 
IS THERE A FULL SECTOR ?? 

YES 1 1 

IS ROZERO ?? 

YES 1 1 

INCREMENT FOR PARTIAL SECTOR 

SUBTRACT ONE SECTOR FROM WORD COUNT 
INCREMENT SECTOR COUNT 

SAVE SECTOR COUNT 


LOAD PARAMETERS AND SEARCH THE MFG, USER AND THE NAPPED SSF BAD 
SECTOR FILES FOR THE ASSIGNED SECTOR. ALSO. SEARCH THE ADJACENT 
SECTORS IF THE SECTOR COUNT IS MORE THAN ONE. 


#MFGFIL+14,78$ 
PC, 60$ 

#OSRFIL*14,78$ 

PC, 60$ 
#SSFIL+4,78$ 


THE STARTING ADDRESS OF MFG FILE 
TO BASE ADDRESS STORAGE. 

GO SEARCH FILE 

LOAD STARTING ADDRESS OF USR FILE 
TO BASE ADDRESS STORAGE. 

GO SEARCH FILE 

LOAD STARTING ADDRESS OF MAPPED SSF 
FILE TO BASE ADDRESS STORAGE. 
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SEQ 0152 


338 034116 

339 

340 034122 

341 034126 

342 

343 034132 

344 034140 

345 034146 

346 

347 

348 

349 

350 034154 

351 034160 

352 034164 

353 034166 

354 034172 

355 

356 

357 

358 


361 


366 

367 


370 

371 

372 

373 

374 


005037 

004737 

000137 

013737 

013737 

013737 


013700 

022710 

001462 

023710 

001014 


.-ASSUME *SSF * BIT IS NOT TO BE WRITTEN 
;IN THE 1ST HEADER WORD. 

.-SEARCH SKIP SECTOR MAPPED FILE 
.-DONE WITH ALL FILE SEARCHES ! ! 

.-LOAD COMPARING CYLINDER ADDRESS 
.-LOAD COMPARING TRACK. SECTOR ADDRESS 
.-LOAD NUMBER OF SECTORS TO CONFIRM 

; SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 
.-CYLINDER, TRACK AND SECTOR ADDRESS 


001514 


CLR 

SSFEN8 

034132 


JSR 

PC.60$ 

71$ 

034452 


JMP 

001516 

034504 60$: 

MOV 

ASNDC,76$ 

001520 

034506 

NOV 

ASNDA. 77$ 
74$, 75$ 

034500 

034502 

NOV 


CZ 
T I 


034510 

177777 

034504 


61$: 

62$: 


NOV 

CMP 

8EQ 

CMP 

BNE 


78$, RO 
#-1 , (RO) 
67$ 

76$. (RO) 
63$ 


LOAD THE BASE ADDRESS IN RO 
IS THIS FILE TERMINATOR ? 

BR IF YES 

IS THIS CYLINDER IN BAD TABLE 
BR IF NO 


392 

393 

394 


.FILE ENTRY EQUALS COMPARING CYLINDER. SEE IF THE NEXT ENTRY EQUALS 
.-THE COMPARING TRACK, AND SECTOR. 

;IS THIS TRACK IN BAD TABLE ? 

;8R IF NO 

;IS THIS SECTOR IN BAD TABLE ? 

;BR IF YES 

;BR IF SECTOR IS LESS THAN TABLE ENTRY, ELSE 
.-ENABLE 'SSF ' SIT TO BE WRITTEN IN THE 
.-1ST HEADER WORD. 

;N0. ADJUST CYLINDER POINTER IN BAD FILE 
.-AND CONTINUE SEARCH. 

ND SECTOR IS IN THE BAD SECTOR FILE. 

START THE SEARCH ALL OVER. 

INCREMENT SECTOR 
IS SSEI SET ? 

Mfl • 1 

SECTOR OK ? 

YES !f 

SECTOR OK ?? 

YES ' 1 

CLEAR’ SECTOR AND ADVANCE TRACK 

TRACK OK ? 

YES ' 1 

CLEAR ’TRACK AND SECTOR 
INCREMENT CYLINDER 
CYLINDER OK ?? 

Y£S ' 1 

RESTORE STACK AND 
GET OUT ! ! 

;THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES. DECREMENT THE 
.-NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER 


034174 

123760 

034507 

000003 


CMPB 

77$*1 ,3(R0) 

034202 

001010 




BNE 

63$ 

034204 

123760 

034506 

000002 


CMPB 

77$,2( RO) 

034212 

001406 




BEQ 

64$ 

034214 

002403 




BLT 

63$ 

034216 

012737 

177777 

001514 


MOV 

#-1 .SSFENB 

034224 

022020 



63$: 

CMP 

<RO)*,(RO)* 

034226 

000754 




BR 

62$ 





:THE 

COMPARING 

CYLINDER, TRACK Al 





.-ADVANCE THE ASSIGNED SECTOR AND 

034230 




64$: 



034230 

105237 

001 S20 



INCB 

ASNDA 

034234 

032737 

001000 

001444 


BIT 

fSSEI.RMOFO 

034242 

001405 




BEQ 

65$ 

034244 

122737 

000037 

001520 


CMPB 

#31 . .ASNDA 

034252 

103327 




BHIS 

60$ 

034254 

000404 




BR 

66$ 

034256 

122737 

000036 

001520 

65$: 

CMPB 

#30., ASNDA 

034264 

103322 




BHIS 

60$ 

034266 

105037 

001520 


66$: 

CLRB 

ASNDA 

034272 

105237 

001521 



INCB 

ASNDA* 1 

034276 

123737 

001335 

001521 


CMPB 

LSTRK+1 .ASNDA* 1 

034304 

103312 




BHIS 

60$ 

034306 

005037 

001520 



CLR 

ASNDA 

034312 

005237 

001516 



INC 

ASNDC 

034316 

022737 

001060 

001516 


CM P 

#560. .ASNDC 

034324 

103302 




BHIS 

60$ 

034326 

005726 




TST 

<SP)* 

034330 

000450 




BR 

71$ 
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K 12 


SEO 0153 


CZI 

PRI 


395 

396 034332 

397 034332 

398 034336 

399 

400 034340 

401 034344 

402 034352 

403 034354 

404 034362 
*♦05 034364 

406 034366 

407 034374 

408 034376 

409 034402 

410 034406 

411 034414 

412 034416 

413 034422 

414 034426 

415 034434 

416 034436 

417 034444 

418 034446 

419 

420 034450 

421 

422 

423 034452 

424 034452 

425 034460 

426 034466 
034466 
034470 
034472 

427 

428 034474 
034476 


;1S NOT ZERO. 



438 034512 

439 

440 

441 

442 

443 

444 034514 
034514 
034516 

445 034520 

446 034524 


005337 

001456 

105237 

032737 

001405 

122737 

103032 

000404 

122737 

103025 

105037 

105237 

123737 

103015 

005037 

005237 

022737 

103005 

013737 

005726 

000407 

000641 


013737 

013737 

012602 

012601 

012600 

000240 

000207 


000000 

000000 

000000 

000000 

000000 

000000 


034502 



DEC 

75$ 

DECREMENT NUMBER OF 



BEQ 

73$ 

DONE IF ZERO 

034506 



INCB 

77$ 

INCREMENT THE COMPA 

001000 

001444 


BIT 

#SSEI.RMOFO 

IS SSEI SET ? 


BEQ 

68$ 

NO !! 

000037 

034506 


CMPB 

#31.. 77$ 

SECTOR OK ? 



SHIS 

70$ 

YES ! ! 




BR 

69$ 


000036 

034506 

68$: 

CMPB 

#30.. 77$ 

SECTOR OK ?? 

YES !! 


BHIS 

70$ 

034506 


69$: 

CLRB 

77$ 

CLEAR SECTOR 

034507 



INCB 

77$+1 

INCREMENT TRACK 

001335 

034507 


CMP8 

LSTRK+1 ,77$+1 

TRACK OK ?? 



BHIS 

70$ 

YES !! 

034506 



CLR 

77$ 

CLEAR SECTOR TRACK 

034504 



INC 

76$ 

INCREMENT CYLINDER 

001060 

034504 


CMP 

#560.. 76$ 

CYLINDER OK ?? 



BHIS 

70$ 

YES »• 

034504 

001446 


MOV 

76$.RMDC0 
<SP) + 

LOAD CYLINDER 



TST 

RESTORE STACK AND 




BR 

72$ 

GET OUT ‘ J 



70$: 

BR 

61$ 

SEARCH NEXT SECTOR 



; ASSIGN 

THE SECTOR AND RETURN TO USER 


001516 

001520 


001446 

001420 



MOV 

ASNDC.RMDCO 


MOV 

ASNDA.RHDAO 

72$: 

MOV 

(SPH.R2 


MOV 

(SP)*.R1 


MOV 

(SPJ+.RO 

73$: 

NOP 



RTS 

PC 

;THE 

FOLLOWING 

ARE STORAGE 1 


.-LOAD CYLINDER 
.-LOAD TRACK AND SECTOR 

;;POP STACK INTO R2 
;;PQP STACK INTO R1 
;;P OP STACK INTO RO 


74S 

75$ 

76$ 

77$ 

78$ 

79$ 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


0 

0 

0 

0 

0 

0 


RETRY COUNT/ NUMBER OF SECTORS REQUIRED 

NUMBER OF SECTORS TO COMPARE 

COMPARING CYLINDER 

COMPARING TRACK AND SEC r OR 

BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 

CONTAINS RMFR2 


THIS ROUTINE SEARCHES THE SKIP SECTOR FILE FOR ANY BAD SECTORS 
WHICH OCCUR ON THE FE CYLINDERS. THE BAD SECTORS ARE THEN MAPPED 
INTO A 'SSFIL* TABLE TO BE USED BY THE 'BADSCT' ROUTINE. 


010046 

010146 

012700 

012701 


GETSSF; 


io zn\ 

105742 


MOV RO.-(SP) ;;PUSH RO ON STACK 

MOV RI.-(SP) ; ; PUSH R1 ON STACK 

MOV fBUFTWO.RO ;R0 = POINTER TO BUFFER 

MOV fSSFIL.RI ;R1 = POINTER TO SKIP SECTOR TABLE 


\ 
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SEQ 0154 


SAVE HEADER WORD 0<CYL ADDRESS) 

SAVE HEADER WORD KTRK/SEC ADDRESS) 

INITIALIZE 'SSFIL* TABLE 
DONE ? 

BR IF NO 

SETUP TO NAP SSFIL TABLE 
GET OVER S/N<2). CREATE DATE. REV DATE, REV#, 
FORMAT TYPE. UNUSED WORDS (3). ENTRY# AND 
CHECKSUM (11. WORDS) 

IS CYLINDER IN FE AREA ? 

NO 1 1 

YESi'ON CYLINDER 560. 

: YES . WHEN ON CYLINDER 559. DO NOT LOG 
ANY BAD SECTORS THAT OCCUR ON THE SKIP 
; SECTOR TRACK(O) OR ALTERNATE DEC144 TRACK (1) 
;IS IT ON TRACK 0 OR 1 ? 

■yes 11 

: LOG THIS CYLINDER AND 
: TRACK/SEC TOR IN 'SSFIL* TABLE. 

; ADJUST BUFFER TO NEXT CYLINDER ENTRY 
;ANY MORE ENTRIES AVAILABLE IN TABLE ? 

;N0, EXIT ! ! 

.-DONE WITH ALL 3 SECTORS ? 

:N0, DO NEXT ENTRY 

; RESTORE TERMINATOR TO MK»FIL 

;;POP STACK INTO R1 
;;POP STACK INTO RO 



H 12 


SEQ 0155 
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1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 


.S8TTL BUFFER GENERATOR SUBROUTINE 

THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. 
BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG. THE BUFFER 
CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF STMP1 WORDS 
FROM THE DATA PATTERN TABLE. BEGINNING AT ADDRESS STMPO. 
HEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC. 
RMDA AND RMOF. 

RO = ADDRESS OF DATA BUFFER 
R1 = LENGTH OF DATA BUFFER 
R 2 = ADDRESS OF DATA PATTERN 
R3 = LENGTH OF DATA PATTERN 
R4 = SECTOR COUNT 


THE 


CALL: 

Cl) JSR 

( 2 ) ?? 


20 

034640 

034640 

010046 



GENBUF : 

MOV 


034642 

010146 




MOV 


034644 

010246 




MOV 


034646 

010346 




MOV 


034650 

010446 




MOV 

21 

034652 

013700 

001416 



MOV 

22 

034656 

013701 

001414 

035102 


MOV 

23 

034662 

013737 

001446 


MOV 

24 

25 

26 

034670 

013737 

001420 

035104 


MOV 

034676 

032737 

000002 

001412 

IS: 

BIT 

27 

034704 

001451 




BEQ 

28 

034706 

013710 

035102 



MOV 

29 

034712 

052710 

140000 



BIS 

30 

034716 

012702 

000035 



MOV 

034722 

032737 

010000 

001444 


BIT 

33 

034730 

001410 




BEQ 

34 

034732 

052710 

010000 



BIS 

35 

034736 

005202 




INC 

36 







37 

034740 

032737 

001000 

001444 


BIT 

38 

034746 

001401 




BEQ 

39 

034750 

005202 




INC 

40 







41 

C34752 

005201 



2S: 

INC 

42 

034754 

001443 




BEQ 

43 







44 

034756 

005720 




TST 

45 

034760 

013720 

035104 



MOV 

46 

034764 

005201 




INC 

47 

034766 

001436 




BEQ 

48 

034770 

012703 

035104 



MOV 

49 

034774 

105213 




INCB 

50 

034776 

120213 




CMP8 

51 

035000 

103013 




BHIS 

52 

035002 

105013 




CLRB 


PC.GENBUF 


RO.-(SP) 

RI.-(SP) 

R2.-CSP) 

R3.-CSP) 

R4.-CSP) 

RMBAO.RO 

RMWC0.R1 

RMDC0.7S 

RMDA0.8S 


RETURN HERE 


;PUSH RO ON STACK 
.-PUSH R1 ON STACK 
.’PUSH R 2 ON STACK 
.-PUSH R3 ON STACK 
.-PUSH R4 ON STACK 
LOAD DATA BUFFER ADDRESS 
LOAD WORD COUNT 

LOAD STARTING CYLINDER ADDRESS 
LOAD STARTING TRACK. SECTOR ADDRESS 


#8IT1 .RMCS10 

3$ 


.‘WRITE HEADER ft DATA?? 

•NO' 1 

7$, (RO) .‘WRITE HEADER WORD #1 

#MSE!USE.(RO) .‘SET BAD SECTOR FLAGS FOR GOOD SECTOR 
;R2 = MAXIMUM SECTOR ADDRESS (29.) 


#29.. R2 

#FMT16.RM0F0 

2 $ 

#FMT16,(R0) 

R2 

fSSEl.RMOFO 

2 * 

R2 

R1 

6 $ 

(RO)* 

8S. (RO)* 

R1 

6S 

#8ft.R3 

(R35 

R2.(R3) 

3$ 

(R3) 


; 18 BIT FORMAT?? 

‘YES 11 

•SET 16 FORMAT BIT IN HEADER 
.•CHANGE MAXIMUM SECTOR ADDRESS (30.) 

;IS SSE1 SET TO ACCESS ALL SECTORS ? 
;N0 !! 

.•CHANGE MAXIMUM SECTOR ADDRESS (31.) 

.•INCREMENT WORD COUNT 
.•EXIT IF DONE 

.‘MOVE RO TO HEADER WORD #2 
.‘WRITE HEADER WORD #2 
.‘INCREMENT WORD COUNT AND 
.‘EXIT IF DONE 
.•ADVANCE SECTOR ADDRESS 

.•SECTOR OVERFLOW ?? 

;N0 ! ! 

;YES - CLEAR SECTOR ADDRESS 


CZ 

PR 



SEO 0156 


ADVANCE TRACK ADDRESS 
TRACK OVERFLOW ?? 

NO ! ! 

YES - CLEAR TRACK ADDRESS 
ADVANCE CYLINDER ADDRESS 
LOAD SECTOR DATA COUNT 
LOAD PATTERN ADDRESS 
LOAD PATTERN COUNT 
WRITE DATA PATTERN 
INCREMENT WORD COUNT AND 
EXIT IF DONE 
DECREMENT SECTOR COUNT 
START NEXT SECTOR IF 0 
DECREMENT PATTERN COUNT 
RESTART PATTERN IF 0 
CONTINUE DATA PATTERN 

;P OP STACK INTO R4 
;POP STACK INTO R3 
;POP STACK INTO R 2 
;P OP STACK INTO R1 
;POP STACK INTO RO 


; CYLINDER ADDRESS STORAGE 
.•TRACK, SECTOR ADDRESS STORAGE 


\ 

\ 
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SEQ 015 7 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

! 2 3 

14 

15 

16 
17 


035106 

035106 

035110 

035112 

035114 

035116 


18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 035 

50 035 

51 

52 

53 


035122 

035130 

035132 

035140 

035142 

035150 

035152 

035160 


035162 

035166 

035172 


035200 

035204 

035206 

035212 

035214 

035216 

035222 


035224 
035226 
035230 
035232 
34 
36 


.S81TL COMPARE BUFFER SUBROUTINE 

THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUFTWO, 
ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WRITTEN 
AND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER 
COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL. 


CALL: 

( 1 ) 

( 2 ) 

C3) 

(4) 

(5) 

( 6 ) 


JSR 

.WORD 

.WORD 

BR 

NOP 

ERROR 

??? 


PC.CMPBUF 

WRITE BUFFER ADDRESS 
READ BUFFER ADDRESS 


RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY SUBROUTINE 


010046 

010146 

010246 

010346 

005037 


033737 

001063 

032737 

001457 

032737 

001053 

032737 

001447 


013700 

013701 

052737 


022701 

103004 

162701 

005720 

000771 

012702 

010203 


020301 

001403 

006302 

005203 

000773 

012703 




CMPBUF : 





MOV 

RO.-(SP) 

.’.’PUSH RO ON STACK 



MOV 

RI.-(SP) 

.-.-PUSH R1 ON STACK 



MOV 

R2.-CSP) 

.’.’PUSH R2 ON STACK 



MOV 

R3.-CSP) 

.-.-PUSH R3 ON STACK 

035446 


CLR 

14$ 

.•CLEAR CORRECTION FLAG 



; DETERMINE IF 

DATA SHOULD BE 

CORRECTED 

004000 

001370 

BIT 

ECI.RMOFI 

;WAS ECC CORRECTION ALLOWED ?? 



BNE 

9$ 

;N0 ! i 

100000 

001352 

BIT 

#DCK.RMER1I 

.-WAS THERE A DATA CHECK ?? 



BEQ 

9$ 

;N0 ! ! 

000100 

001352 

BIT 

#ECH,RMER1I 

;IS ERROR CORRECTION HARD SET 



BNE 

9$ 

;YES ! ! 

010000 

001370 

BIT 

#FMT16,RM0FI 

;IS THIS 16 BIT FORMAT ?? 



BEQ 

9$ 

;N0 ! ! 



.■CORRECT DATA USING ECC INFORMATION 

001416 


MOV 

RMBAO.RO 

;R0 = STARTING BUFFER ADDRESS 

001402 


MOV 

RMEC1I.R1 

;R1 = ECC POSITION 

100000 

035446 

BIS 

#8IT15.14$ 

.’SET CORRECTION FLAG 



;MOVE RO TO WORD BOUNDARY OF 

ERROR BURST 

000020 


1$: CMP 

#16.,R1 

;IS BIT POSITION > 1 WORD 



BHIS 

2$ 

;N0 !! 

000020 


SUB 

.116.. R1 

.•SUBTRACT 1 WORDS WORTH 



TST 

(R0)+ 

.’ADVANCE BUFFER ADDRESS 1 WORD 



BR 

1$ 


000001 


2S: MOV 

#1 ,R2 

;R2 = BIT POINTER 



MOV 

R2.R3 

;R3 = BIT NUMBER 


MOVE R2 TO STARTING BIT OF ERROR BURST 


035242 030237 


000013 

001404 


5 $: 


4$: 


CMP 

BEQ 

ASL 

INC 

BR 

MOV 


R3.R1 
4$ 

R2 

R3 

3$ 

#11.. R3 


:C0RRECT THE ERROR BURST 
$$: BIT R2.RMEC2I 


;IS R3 SAME AS R1 ?? 

*YES 1 * 

•SHIFT - *BIT POINTER 
.-INCREMENT BIT NUMBER 

;R z = LENGTH OF ERROR BURST 
; IS THIS BIT SET IN ECC PATTERN ?? 
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SEO 0158 


COMPARE BUFFER 

54 035246 

SUBROUTINE 

001405 


BEQ 

7$ 

55 035250 

030210 


BIT 

R2. CRO) 

56 035252 

001402 


BEQ 

6$ 

57 035254 

040210 


BIC 

R2,(R0) 

58 035256 

000401 


BR 

7$ 

59 035260 

050210 

6$: 

BIS 

R2,(R0> 

60 035262 

006302 

7$: 

ASL 

R2 

61 035264 

001003 


BNE 

8$ 

62 035266 

012702 000001 


MOV 

#1.R2 
<R0) + 

63 035272 

005720 

8$: 

TST 

64 035274 

005303 

DEC 

R3 

65 035276 

001361 


BNE 

5$ 


66 

67 

68 035300 

69 035304 

70 035312 

71 035316 

72 035324 

73 035330 

74 035334 

75 035336 

76 035340 

77 035342 

78 035344 

79 

80 

81 035346 

82 035352 

83 035356 

84 035362 

85 035366 

86 035372 

87 035400 

88 

89 

90 035406 

91 035414 

92 035416 

93 035424 

94 035432 

95 035434 
035434 
035436 
035440 
035442 

96 035444 

97 

98 035446 


017600 

062766 

017601 

062766 

013702 

163702 

022021 

001003 

005302 

001374 

000433 


014037 

014137 

010037 

010137 

010237 

062766 

112776 


032737 

001403 

112776 

162766 

000240 

012603 

012602 

012601 

012600 

000207 

000000 


000010 

000002 

000010 

000002 

001340 

001414 


000010 

000010 


001140 

001142 

001134 

001136 

001174 

000004 

000336 


000010 

000010 


; COMPARE WRITE BUFFER TO READ 
$$: MOV aiOISPJ.RO 

ADD #2.10(SP> 

MOV aiO(SP>,Rl 

ADD #2.10(SP> 

MOV RMWCI.R2 

SUB RMWC0.R2 

10$: CMP (R0)+.(R1>* 

BNE 11$ 

DEC R2 

BNE 10$ 

BR 13$ 

.♦DATA COMPARE FAILED 
11$: MOV -<RO).$GDDAT 

MOV -CR1 ) ,$8DDAT 

MOV RO.SGDADR 

MOV R1.S8DADR 

MOV R2.STMP0 

ADD #4.10(SP) 

MO VS #336,aiO(SP) 


;NO - DO NOT CORRECT THIS BIT 
;IS THE BIT PRESENTLY SET ?? 

"NO 

•RESET THE BIT 

;SET THE BIT 
.•SHIFT TO NEXT BIT 

.•CONTINUE WITH FIRST BIT OF NEXT WORD 

.-END OF BURST ?? 

;N0 i! 

BUFFER 

;R0 = WRITE BUFFER 
.-MOVE SP TO READ ADDRESS 
;R1 = READ BUFFER 
.-MOVE SP TO RETURN ADDRESS 
;R2 = NUMBER OF WORDS TRANSFER 

.•COMPARE DATA WORDS 
.-EXIT IF NOT EQUAL 
.•DECREMENT WORD COUNT 
; CONTINUE IF NOT DONE 
.-DONE COMPARE - NO ERROR 


STORE GOOD DATA FOR TYPEOUT 
STORE BAD DATA FOR TYPEOUT 
STORE ADDRESS OF GOOD DATA 
STORE ADDRESS OF BAD DATA 
STORE WORD COUNT OF ERROR 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 


100000 035446 


000163 

000002 


000010 

000010 


ERROR NUMBER IF ECC 

CORRECTION FAILED 

BIT 

*BIT15,14$ 

.-WAS ECC CORRECTION USED ?? 

BEQ 

12$ 

;N0 I ! 

M0V8 

#163.aiO(SP) 

;ECC CORRECTION FAILED 

SUB 

NOP 

#2,10<SP) 

.•MOVE SP TO RETURN IF ERROR 

MOV 

(SP)+. R3 

;;POP STACK INTO R3 

MOV 

(SPJ+.R2 

;;POP STACK INTO R2 

MOV 

<SP>+, R1 

;;POP STACK INTO R1 

MOV 

(SPH.RO 

;;POP STACK INTO RO 

RTS 

PC 

.•RETURN TO USER . 


14$: .WORD 


;ECC CORRECTION FLAG 
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1 .S8TTL GET STATUS SUBROUTINE 


SEO 0159 


THIS SUBROUTINE SETS UP THE "GET INDEX TABLE" AND THE "GET 
BUFFER" FOR READING ALL SUBSYSTEM REGISTERS iFIA THE GET SUBROUTINE 
AND THEN RETURNS TO THE USER. 


6 

7 



•CALL: 

JSR 

PC. GETSTS 

) 

8 



# 

??? 

F 

IE TURN HERE 

10 035450 



GETSTS: 



I 

035450 

010046 



NOV 

RO.-(SP) 

;PUSH RO ON STACK 

11 035452 

010146 



NOV 

RI.-(SP) 

;PUSH R1 ON STACK 

12 035454 

010246 



NOV 

R2.-ISP) 

.-PUSH R2 ON STACK 

13 035456 

012700 

001526 


NOV 

AGETINX.RO 

RO = ADDRESS OF INDEX TABLE 

14 035462 

012701 

001406 


NOV 

#RNEC2I*2.R1 

R1 = ADDRESS OF GET BUFFER 

15 035466 

012702 

000046 


NOV 

JRNEC2.R2 

R2 = REGISTER INDE 

16 035472 

110220 


IS: 

N0V8 

R2.CR0)* 

WRITE REGISTER INDEX IN TABLE 

17 035474 

005041 



CLR 

-(R1> 

CLEAR CORRESPONDING LOCATION 

18 035476 

162702 

000002 

2$: 

SUB 

#2,R2 

DECRENENT TO NEXT INDEX 

19 035502 

100405 



BNI 

3$ 

BRANCH OUT IF DONE 

20 035504 

022702 

000022 


CNP 

ARND8.R2 

DONT WRITE RND8 INDEX 

21 035510 

001370 



BNE 

1$ 


22 035512 

005041 



CLR 

-<R1) 


23 035514 

000770 



BR 

2S 


24 035516 

112720 

000200 

3$: 

NOVB 

#200. (RO)* 

WRITE TERNINATOR 

25 035522 

012602 



NOV 

(SP)*,R2 

;POP STACK INTO R2 

26 035524 

012601 



NOV 

(SP) + .R1 

;POP STACK INTO R1 

27 035526 

012600 



NOV 

(SP)*.H 0 

;POP STACK INTO RO 

28 035530 

000240 



NOP 



29 035532 

000207 



RTS 

PC 
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SEO 0160 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 035534 

32 035536 

33 035542 

34 035546 

35 035552 
035554 
035556 
035560 
035562 
035564 
035570 

36 035574 

37 035600 

38 035604 

39 035610 

40 035616 

41 035624 

42 035632 
45 035640 

44 035646 

45 035650 

46 035656 

47 035664 

48 U35666 

49 035670 

50 035672 

51 035674 


000240 

062716 

105076 

162716 

010046 

010146 

010246 

010346 

010446 

013746 

013746 

013700 

012702 

012704 

012737 

012737 

016037 

016037 

032737 

001007 

062766 

112776 

000423 

105714 

100433 

111401 

042701 


000004 

OOCOOO 

000004 


000004 

000006 

001276 

001336 

001526 

035716 

000300 

000010 

000000 

004000 

000004 

000112 


177700 


.S8TTL GET SUBROUTINE 

THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 
"GET INDEX TABLE" AM) STORES THEIR VALUES IN THE CORRESPONDING 
LOCATION IN THE "GET REGISTER BUFFER". FOR EXAMPLE, AN 
ENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO 
READ 'NNBA" AND STORE ITS CONTENTS AT THE LOCATION IN 
THE BUFFER ASSIGNED TO THAT REGISTER. THE NUMBER OF 
REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX 
TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 

WHICH SHOULD FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 

(1) 'TGET INDEX TABLE" HAS BEEN LOADED WITH REGISTER INDEX 
VALUES AND TERMINATED WITH A CONTROL BYTE 

(2) "GET INPUT BUFFER" IS AVAILABLE FOR USE. (NOTE THAT 
UNUSED LOCATIONS, I. E., ENTRIES IN BUFFER CORRESPONDING 
TO REGISTERS NOT READ, ARE NOT CHANGED.) 

(3) JSR PC,6ET 

3R ??? RETURN HERE IF NO ERROR FOUND 

NO P RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NUMBER 

??? 

RO = REGISTER BASE ADDRESS 
R1 = REGISTER ADDRESS 
R2 = BUFFER BASE ADDRESS 
R3 = BUFFER ADDRESS 
R4 = POINTER TO REGISTER INDEX 


000004 
000006 
001174 1$; 
001176 
001176 

000016 

000016 


NOP 

ADD 

CLRB 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

NOV 

NOV 

MOV 

NUV'- 

MOV 

MOV 

MOV 

MOV 

MOV 

BIT 

8NE 

ADD 

M0V8 

BR 

TST8 

BMI 

N0V8 

BIC 


#4,(SP) 

»(SP) 

#4, (SP) 

RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4.-(SP) 
ERRVEC.-(SP) 
ERRVEC+2,-(SP) 
SBASE.RO 
#GET8UF,R2 
#GETINX,R4 
#3S,ERRVEC 
#PR6.ERRVEC*2 
RNCS2<R0) ,STNPO 
RMCS1 (RO) -8TNP1 
#DVA,8TNPl 
2 $ 

#4.16(S D ) 

#li2.ai6(SP) 

48 

(R4) 

68 

(R4> ,R1 
#*CIDXNSK,R1 


; CLEAR ERROR NUMBER IN USER'S 
.•ERROR CALL 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 


.-SETUP FOR TIMEOUT 

.-GET 'NED" STATUS 
.•GET "DVA" STATUS 
.•DEVICE AVAILABLE?? 

•YES' ' 

•WRITE ERROR NUMBER IN USER'S 
.•ERROR CALL 

.-DONE?? 

•YES' 1 

;R1 =' REGISTER ADDRESS 
.•CLEAR ANY SIGN EXTENSION 


t 1 .X’ 


F 13 



;R3 = STORAGE AODRESS FOR REGISTER 
.•CLEAR SIGN EXTENSION 

.-READ REGISTER 


SEQ 0161 


CZR 

SEC 


.•RESTORE STACK 
.•WRITE ERROR NUMBER IN 
.-USER'S ERROR CALL 

.-DONE CLEARING?? 

•YES' 1 

•CLEAR REMAINING STORAGE 
.•LOCATIONS 


;;POP STACK INTO ERRVEC+2 
;POP STACK INTO ERRVEC 
.-POP STACK INTO R4 
.-POP STACK INTO R3 
.-POP STACK INTO R2 
;P0P STACK INTO R1 
.-POP STACK INTO RO 
RETURN 


i 
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G 13 


SEQ 0162 


1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 

!? 

14 

15 

16 

17 

18 

19 

20 
21 

M 

8 

26 

27 

23 036004 

29 036006 
036010 
036012 
036014 
036016 
036020 
036024 

30 036030 

31 036034 

32 036040 

33 036044 

34 036052 

35 036060 

40 036112 

41 036120 

42 036122 

43 036124 

44 036126 

45 036130 

46 036134 

47 036136 

48 036140 

49 036144 

50 036146 

51 036150 


000240 

010046 

010146 

010246 

010346 

010446 

013746 

013746 

013700 

012702 

012704 

012737 

012737 

016037 

016037 

032737 

001007 

062766 

112776 

000430 

105714 

100431 

111401 

042701 

060001 

111403 

042703 

060203 

0113H 

122714 


000004 

000006 

001276 

001412 

001555 

036164 

000300 

000010 

000000 

004000 

000004 

000112 


177700 

177700 

000032 


, S8TTL PUT SUBROUTINE 

THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE 
"PUT INDEX TABLE" WITH THE CONTENTS OF THE CORRESPONDING 
LOCATION IN THE ‘*UT REGISTER BUFFER". THE NUMBER OF 
REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST 
BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 


(1) 

( 2 ) 

(3) 


RO 

R1 

R2 

R3 

R4 


PUT: 


"PUT INDEX TABLE" HAS BEEN LOADED WITH INDEX VALUES 
OF REGISTERS TO BE WRITTEN. 

•W REGISTER BUFFER" CONTAINS CONTENTS OF EACH 
REGISTER TO BE WRITTEN. 

JSR PC, PUT 

BR ??? RETURN HERE IF NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NUMBER 

777 
• • • 

REGISTER BASE ADDRESS 
REGISTER ADDRESS 
BUFFER BASE ADDRESS 
BUFFER ADDRESS 
POINTER TO REGISTER INDEX 


000004 

000006 

001174 

001176 

001176 

000016 

000016 


IS: 


2 $: 


NOP 

MOV RO,-(SP) 

MOV R1,-(SP> 

MOV R2,-(SP> 

MOV R3,-(SP) 

MOV R4,-(SP> 

MOV ERRVEC,-(SP> 

MOV ERRVEC*2,-(SP) 

MOV SBASE,RO 

MOV #PUTBUF,R2 

MOV #PUTINX,R4 

MOV #4$,ERRV£C 

MOV #PR6.ERRVEC*2 

MOV RMCS$(R0).STMPO 

MOV RMCS1 (RO) -STMP1 

BIT fDVA.STMPI 

BNE 2$ 

ADD #4.16(SP) 

MOVB #112,B16(SP) 

DD (f 

TSTB (R4) 

BMI 6* 

MOVB (R4),R1 

BIC #*CIDXMSK.R1 

ADD R0.R1 

MOVB (R4),R3 

BIC #*CIDXMSK.R3 

ADD R2.R3 

MOV (R3),(R1) 

CMPB fRMOF , (R4) 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 


SETUP FOR TIMEOUT 

GET 'NED" STATUS 
GET *DVA" STATUS 
DEVICE AVAILABLE?? 

YES' 1 

WRITE ERROR NUMBER IN 
USER'S ERROR CALL 

DONE?? 

YES' 1 

R1 = REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 

R3 = STORAGE ADDRESS 
CLEAR ANY SIGN EXTENSION 

WRITE REGISTER 

WAS RMOF JUST LOADED ? 


H 13 
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52 036154 

001001 




BNE 

3» 

i 53 036156 

I S4 

55 036160 

011311 




MOV 

(R3).(R1) 

105724 



3$: 

TST8 

(R4) + 

. 56 036162 

57 

58 036164 

000757 




BR 

21 

022626 



41: 

CMP 

(SP)*.( SP)* 

1 59 036166 

062766 

000004 

000016 


ADD 

#4.16(SP) 

1 60 036174 

112776 

000007 

000016 


M0V8 

#7,ai6(SP> 

61 036202 

62 

162766 

000002 

000016 

5$: 

SUB 

#2.16(SP) 

1 63 036210 




61: 


(SP)+.ERRVEC*2 

036210 

012637 

000006 



MOV 

036214 

012637 

000004 



MOV 

(SP)*. ERRVEC 

036220 

012604 




NOV 

(SP)*,R4 

036222 

012603 




NOV 

(SP)*. R3 

036224 

012602 




MOV 

(SP)*.R2 

036226 

012601 




MOV 

(SP)*.R1 

036230 

012600 




NOV 

(SP )*.R0 

64 036232 

000207 




RTS 

PC 


SEO 0163 CZI 

SE 

*BR IF NO 

.WRITE RHOF AGAIN. TO ENSURE THAT 16 BIT NODE 
;IS SET BEFORE “SSEr* BIT IS SET. 

.ADJUST REGISTER POINTER 


ADJUST STACK 
WRITE ERROR NUMBER IN 
USER'S ERROR CALL 


;;POP STACK INTO ERRVEC+2 
;P OP STACK INTO ERRVEC 
;P OP STACK INTO R4 
;POP STACK INTO R3 
;POP STACK INTO R2 
.-POP STACK INTO R1 
;POP STACK INTO RO 
RETURN 


i 




SEO 0164 


CZR 

SEC 


.-PUSH ERRVEC ON STACK 

; ; PUSH ERRVEC*2 ON STACK 
SET UP FOR BUS TINE OUT 

LOAD ADDRESSES FOR KU11-L 

TEST FOR KU11-L PRESENT 
YES - KW11-L IS PRESENT 
RESTORE SP 

SET UP FOR BUS TIMEOUT 

LOAD ADDRESSES FOR KWll-P CLOCK 

TEST FOR KU11-P PRESENT 
YES - KW11-P IS PRESENT 
RESTORE SP 
MOVE RETURN TO ERROR 

;;POP STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 
.•RETURN TO USER 


r 
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SEQ 0165 


1 

2 

3 

4 

5 

6 

7 

8 

9 036356 
036356 
036360 
036362 
036366 

10 036372 

11 036400 

12 036406 

13 036412 

14 036416 

15 

16 036422 

17 036426 

18 036432 

19 036436 

20 036440 

21 036446 

22 036450 

23 036452 

24 036454 

25 

26 036456 

27 036460 

28 036466 
*9 036474 

30 

31 036502 
036502 
036506 
036512 
036514 

32 036516 

33 

34 

35 

36 

37 

38 036520 
036520 

39 036522 

40 036526 

41 036532 

42 036534 

43 036542 

44 036546 

45 036550 


010046 

010246 

013746 

013746 

012737 

012737 

013700 

012702 

004737 

016046 

042716 

022726 

001421 

032777 

001765 

005302 

001361 

000412 

022626 

062766 

112776 

162766 


012637 

012637 

012602 

012600 

000207 


wfTL TIMEOUT SUBROUTINE 

THIS SUBROUTINE WAITS FOR ROY = 1 AND GO = 0 OR FOR A TIMEOUT 
GREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 


;CALL: JSR 
. ?'»? 

* • • • 

TIMOUT: 


PC.TIMOUT 


RETURN HERE 


000004 

000006 


000004 

000006 

036456 

000300 

001276 

000036 

036520 

000000 

177576 

000200 


000200 143054 


000004 

000007 

000002 


000006 

000004 


000012 

000012 

000012 


CMP 

ADD 

MOVB 

SUB 


RO.-(SP) 

R2.-CSP) 
ERRVEC.-(SP) 
ERRVEC*2,-(SP) 
#3$. ERRVEC 
#PR6.ERRVEC*2 
SBASE.RO 
#30. ,R2 
PC. S TIMER 

R7 "Si (RO) ,-CSP) 
#*C<RDY!GO>.(SP) 
#RDY, (SP)* 

4$ 

#8IT7,aCLKADR 

2 $ 

R 2 
IS 
4$ 

(SP)*.(SP)* 

#4.12(SP> 

#7.812(SP) 

#2,12(SP) 


;PUSH RO ON STACK 
.•PUSH R2 ON STACK 
.'PUSH ERRVEC ON STACK 

.'.'PUSH ERRVEC *2 ON STACK 
SETUP FOR BUS TIMEOUT - 04 TRAP 

RO=BASE ADDRESS 
R2-NUMBER OF CLOCK CYCLES 
START CLOCK TIMER 

GET STATUS 

RDY=1.G0=0?? 

YES' 1 

TIMER DONE?? 

NO' ' 

DEC NUMBER OF CYCLES 

CONTINUE IF NOT DONE 

•*DY’* DID NOT SET OR *W DID NOT RESET 

WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 

ADJUST STACK 

MOVE SP TO USER'S CALL 

WRITE ERROR NUMBER 


(SP)*,ERRVEC*2 
(SP)*. ERRVEC 
(SP)*,R2 
(SP)*.RO 
PC 


;;POP STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 
;;POP STACK INTO R2 
;;POP STACK INTO RO 
.'RETURN TO USER 


THIS ROUTINE IS USED START THE KW11-L OR THE KW11-P CLOCK. THE CLOCK 
IS STARTED TO RUN IN FLAG MODE. A CLOCK WILL BE 16.667MS FOR A 60 HZ CPU 
AND 20MS FOP A 50 HZ CPU. 


010146 

013701 001522 
020127 172540 
001003 

012761 000001 
012711 000005 

012601 
000207 


000002 


STIMER: 

MOV 

MOV 

CMP 

BNE 

MOV 

1$: MOV 

MOV 
RTS 


R1 .-(SP) 
CLKADR.R1 
R1 .#172540 

IS 

#1,2(R1> 

#8IT2!BIT0,(R1) 

(SP)*,R1 

PC 


.'PUSH R1 ON STACK 
R1=CL0CK ADDRESS 
KW11-P CLOCK?? 

NO 1 1 

SEf COUNTER 
START COUNTER 
;POP STACK INTO R1 
RETURN 



NO>UI^Wfy>* < 0'OODN9UI^MM^O'OOgNO'Ut^W<U^O^as(KO^M'V- a 04>0>NOv/lAMI\J-iO'OaiN^v/1^U4rv)- 1 


K 13 


SEQ 0166 
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•SBTTL PRIMARY ERROR CHECK SUBROUTINE 

THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
FOLLOWING CHECKS ARE MADE: 

.CORRECT UNIT IS SELECTED. I.E., THE UNIT SELECT BITS OF RMCS2 
(BITS 0-2) EQUAL THE UNIT BEING TESTED; 

.SELECTED UNIT IS AVAILABLE. I.E.. DVA (BIT 11 OF RMCS1) IS SET 
AND NED (BIT 12 OF RMCS2) IS RESET; 

.LAST COMMAND WAS COMPLETED. I.E.. THE MASSBUS CONTROLLER IS 
READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 

.NO PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS. 

I.E.. MCPE = 0. 

.NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS. 

I.E.. PAR = 0. OR. PAR = DPE = 1 


036552 


036552 062716 000004 
056556 105076 000000 
036562 162716 000004 


036566 

036574 

036602 

036610 

036616 

036624 

036626 

036632 


013737 

042737 

013737 

042737 

123737 

001415 

062716 

112776 


001346 
177770 
001234 
177770 
001 140 


000004 

000001 


001142 

001142 

001140 

001140 

001142 


000000 


036640 162716 000002 
036644 004736 


THE SUBROUTINE ASSUMES THAT: 

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER. 

IN PARTICULAR. RMCS1 . RHCS2 AND RMDS HAVE BEEN STORED IN THEIR 
CORRESPONDING LOCATIONS OF THE “GET" BUFFER. 

.((UNIT) CONTAINS THE DRIVE NUMBER 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


.-MOVE (SP) TO ERROR CALL 
.-CLEAR ERROR NUMBER 
.‘MOVE (SP) TO NO ERROR RETURN 

.REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 


THE SUBROUTINE 

IS CALLED 

(1) JSR 

PC, PRIERR 

BR 

» i * 

NOP 


ERROR 


JSR 

PC,8(SP>* 

??? 


PRIERR: 


.CLEAR USER'S ERROR CALL 

ADD 

#4,(SP) 

CLR8 

»(SP) 

SUB 

#4, (SP) 


MOV 

RMCS2I.SBDDAT 

.•CORRECT UNIT SELECTED?? 

BIC 

#*CUNTMSK . SBDDAT 


MOV 

SUNIT.SGDDAT 

.•GOOD DATA FOR TYPEOUT 

BIC 

#*CUNTMSK,$GDDAT 


CMP8 

SGDDAT, SBDDAT 

.•COMPARE EXPECTED AND RECEIVI 
; DRIVE NUMBERS 

BEQ 

1$ 

;YES!! 

ADD 

#4,(SP) 

.ERROR 1 

MOVB 

fi.a(SP) 

SUB 

02, (SP) 

.-MOVE SP TO RETURN FOR ERROR 

JSR 

PC.9CSP)* 

.‘REPORT WRONG UNIT SELECTED 


CZR1 

SECI 


L 13 
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58 036646 

162716 

000010 


SUB 

#10, (SP) 

.RESTORE (SP) 

59 036652 

000240 



NOP 



60 036654 

000137 

037374 


JMP 

10S 

.-SKIP OTHER CHECKS 

61 036660 




1$: 



be 

63 




.REPORT AN ERROR IF THE DEVICE 

IS NOT AVAILABLE OR IF 

64 




;THE DEVICE IS 

NONEXISTANT 


65 036660 

032737 

004000 

001336 

BIT 

#DVA,RMCS1 I 

.•DEVICE AVAILABLE?? 

66 036666 

001045 



BNE 

3$ 

; YES i ! 

67 036670 

013737 

001336 

001140 

MOV 

RMCS1I,$GDDAT 

.•EXPECTED STATUS 

68 036676 

052737 

004000 

001140 

BIS 

fDVA.SGDDAT 


69 036704 

013737 

001336 

001142 

MOV 

RMCS1J .SBDDAT 

.•RECEIVED STATUS 

70 036712 

062716 

000004 


ADD 

#4.(SP) 


71 036716 

112776 

000002 

000000 

M0V8 

#2,8(SP) 

.•ERROR 02 

72 036724 

032737 

010000 

001346 

BIT 

#NED,RMCS2I 

;UAS NED SET?? 

73 036732 

001414 



BEQ 

2$ 

;NOJ ! 

74 036734 

013737 

001346 

001140 

MOV 

RMCS2I,$GDDAT 

.•EXPECTED STATUS 

75 036742 

013737 

001346 

001142 

MOV 

RMCS2I, SBDDAT 

.•RECEIVED STATUS 

76 036750 

042737 

010000 

001140 

BIC 

#NED,$GDDAT 


77 036756 

112776 

000003 

000000 

MOVB 

#3.a(SP) 

;YES - CHANGE ERROR NUMBER 

78 036764 

162716 

000002 


2$: SUB 

02. (SP) 

.-MOVE SP TO RETURN FOR ERROR 

79 036770 

004736 



JSR 

PC.d(SP)* 

.•REPORT DEVICE NOT AVAILABLE 

80 036772 

162716 

000010 


SUB 

#10, (SP) 

.•RESTORE (SP) 

81 036776 

000240 



NOP 



82 037000 

000575 



BR 

10S 

.•SKIP OTHER CHECKS 

83 037002 

Q/ 




3$: 



OH 

85 




; REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY 

86 037002 

032737 

000200 

001336 

BIT 

#RDY,RMCS1 I 

.•CONTROLLER READY?? 

87 037010 

001030 



BNE 

4$ 

; YES! ! 

88 037012 

013737 

001336 

001140 

MOV 

RMCS1I ,$GDDAT 

.•EXPECTED STATUS 

89 037020 

052737 

000200 

001140 

BIS 

#RDY.$GDDAT 


90 037026 

042737 

160001 

001140 

BIC 

#SC J TRE !HCPE !60,IGDDAT 

91 037034 

013737 

001336 

001142 

MOV 

RMCS1 1. SBDDAT 

.•RECEIVED STATUS 

92 037042 

062716 

000004 


ADD 

#4.(SP) 


93 037046 

112776 

000004 

000000 

MOVB 

#4,8(SP> 

.•ERROR #4 

94 037054 

162716 

000002 


SUB 

02. (SP) 

.-MOVE SP TO RETURN FOR ERROR 

95 037060 

004736 



JSR 

PC.8(SP)+ 

.•REPORT CONTROLLER NOT READY 

96 037062 

162716 

000010 


SUB 

#10, (SP) 

.•RESTORE (SP) 

07 037066 

000240 



NOP 



98 037070 

000541 



BR 

10S 

.•SKIP OTHER CHECKS 

99 037072 




4$: 



100 

101 




.•REPORT AN ERROR IF GO IS NOT 

ZERO AND DRY IS NOT ONE 

102 037072 

032737 

000001 

001336 

BIT 

#G0,RMCS1I 

;G0 RESET?? 

103 037100 

001431 



BEQ 

5S 

; YES! ! 

104 037102 

032737 

000200 

001350 

BIT 

#DRY,RMDSI 

.•DRIVE READY?? 

105 0371 10 

001025 



BNE 

5$ 

; YES! ! 

106 037112 

013737 

001336 

001140 

MOV 

RMCS1I,$GDDAT 

: EXPECTED STATUS 

107 037120 

042737 

160001 

001140 

BIC 

#SC ! TRE IMCPE ! GO,IGDDAT 

108 037126 

01373? 

001336 

001142 

MOV 

RMCS1 I .SBDDAT 

.•RECEIVED STATUS 

109 037134 

062716 

000004 


ADD 

#4,(SP) 


HO 037140 

112776 

000005 

000000 

MOVB 

#5.8(SP) 

; ERROR #5 

111 037146 

162716 

000002 


SUB 

#2.(SP) 

.-MOVE SP TO RETURN FOR ERROR 

112 037152 

004736 



JSR 

pc.a(SP)* 

.•REPORT DRIVE NOT READY 

113 037154 

162716 

000010 


SUB 

#10, (SP) 

.•RESTORE (SP) 

114 037160 

000240 



NOP 
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SEQ 0168 


115 037162 

116 037164 

117 

118 

119 

120 037164 

121 037172 

122 037174 

123 037202 

124 037210 

125 037216 

126 037222 

127 037230 

128 037234 

129 037236 

130 037242 

131 037244 

132 037246 

133 

134 

135 037246 

136 037254 

137 037256 

138 037264 

139 037266 

140 037274 

141 037276 

142 037300 

143 037304 

144 037310 

145 037312 

146 037314 

147 037316 

148 037320 

149 037322 

150 037324 

151 037332 

152 037340 

153 037346 

154 037352 

155 037360 

156 037364 

157 037366 

158 037372 

159 037374 

160 037400 

161 037402 


000504 


032737 

001425 

013 7 37 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 

000453 


032737 

001451 

032737 

001045 

032737 

001413 

010046 

012700 

122710 

001002 

012600 

000431 

105720 

100371 

012600 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 

062716 

000240 

000207 


020000 001336 


001336 

160001 

001336 

000004 

000013 

000002 

000010 


001140 

001140 

001142 

000000 


001352 

000010 

001352 

000004 

000050 

000002 

000010 

000010 


.REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD 
.•PARITY ON THE MASS8US CONTROL BUS 


BIT 

BEQ 

MOV 

BIC 

MOV 

ADD 

M0V8 

SUB 

JSR 

SUB 

NOP 

BR 


#MCPE.RMCS1I 

65 

RMCS1I.SGDDAT 


#SC ! TRE 1MCPE ! G0.5GDDAT 


RMCS1I.5BDDAT 

#4,(SP) 

#13, 3(SP> 

#2,(SP) 

PC.9(SP)+ 

#10. (SP) 


PARITY ERROR ?? 
NO!! 

EXPECTED STATUS 


RECEIVED STATUS 

MOVE STACK TO USER’S ERROR 

ERROR #13 

MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE STACK 


000010 001352 
000010 001400 
000010 001426 


001555 

000014 


.•REPORT AN ERROR IF THE RM80 DETECTED A CONTROL BUS PARITY ERROR 


001140 

001140 

001142 

000000 


BIT 

BEQ 

BIT 

BNE 

BIT 

BEQ 

MOV 

MOV 

CMPB 

BNE 

MOV 

BR 

TSTB 

BPL 

MOV 

MOV 

BIC 

MOV 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 

ADD 

NOP 

RTS 


#PAR,RMER1I 

11 $ 

#DPE.RMER2I 

11 $ 

#PAR.RMER10 

9$ 

RO.-(SP) 
#PUTINX.RO 
#RMER1 . (RO) 

8 $ 

(SP)+. RO 
11 $ 

(ROH 

7$ 

(SPH.RO 
RMER1I ,$GDDAT 
#PAR.$GDDAT 
RMER1I -5BDDAT 

#4, <sp5 
#50,a(SP> 
#2.(SP) 
PC.aiSPH 
#10. (SP) 

#10, (SP) 


WAS THERE A PARITY ERROR?? 

MO! ' 

HA * * THE CONTROL BUS?? 

hjr • IE ! ! 

DIP i EST SET PAR ?? 

NO!! 

;PUSK RO ON STACK 
RO POINTS TO INDEX TABLE 
SEARCH TABLE FOR RMER1 

.-POP STACK INTO RO 
PAR WAS SET BY TEST 
END OF TABLE?? 

NO!! 

.-POP STACK INTO RO 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE THE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR 

MOVE SP TO NO ERROR RETURN 

RETURN TO ERROR 
RETURN TO NO ERROR 




CZRNEAO RM80 FCTNL PT 2 MACRO V04.00 28- JAN-82 16:38:23 PAGE 25 
SECONDARY ERROR CHECK SUBROUTINE 


SEQ 0169 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 037404 

25 

26 

27 037404 

28 037412 

29 037420 

30 037424 

31 037430 

32 

33 

34 037434 

35 037442 

36 037444 

37 037452 

38 037460 

39 037466 

40 037472 

41 037500 

42 Q37504 

43 037506 

44 037512 

45 

46 

47 037514 

48 037522 

49 037524 

50 037532 

51 037540 

52 037544 

53 037550 

54 037556 

55 037562 

56 037564 

57 037570 


013737 

042737 

062716 

105076 

162716 


001412 

177701 

000004 

000000 

000004 


032737 

001024 

013737 

042737 

012737 

062716 

112776 

162716 

004736 

162716 

000240 


001350 

177577 

000200 

000004 

000010 

000002 


000010 


032737 

001423 

013737 

042737 

005037 

062716 

112776 

162716 

004736 

162716 

000240 


043544 

043544 


000200 001350 


001142 

001142 

001140 


000000 


001336 

177776 

001140 

000004 

000011 

000002 


000010 


.S8TTL SECONDARY ERROR CHECK SUBROUTINE 


THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 
ASSOCIATED WITH THE OPERATION BEIN6 PERFORMED. 

WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 
TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


JSR 

BR 

NOP 

ERROR 

JSR 

777 


PC.SECERR 

777 


PC.a(SP)* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


;NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
.•INPUT REGISTER BUFFER. 


SECERR: 


; STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 


MOV 

BIC 

ADD 

CLRB 

SUB 


RMCS10.81S .-STORE FUNCTION CODE 

#*C<F0!F1!F2!F3!F4>,81S 

#4, (SP) ,-MOVE (SP) TO ERROR CALL 

B(SP) ; CLEAR ERROR NUMBER 

#4, (SP) .-MOVE (SP) TO NO ERROR RETURN 


.•REPORT ERROR IF DRIVE IS NOT READY, I.E.. IF DRY = 0 


BIT 

BNE 

MOV 

BIC 

MOV 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 


#DRY,RMDSI 

1 $ 

RMDSI.SBDDAT 

#*CDRY,$8DDAT 

fDRY.SGDDAT 

#4 .(SP) 

#lO,a(SP) 

#2,(SP) 

pc.a(SP)* 

#10. (SP) 


.•DRIVE READY?? 

•YES' 1 

•BAD ‘DATA FOR TYPEOUT 


,‘GOOD DATA FOR TYPEOUT 


; ERROR NUMBER 

,‘MOVE SP TO RETURN FOR ERROR 
.•REPORT NOT READY 

RESTORE (SP) TO ERROR N 


000001 001336 


.•REPORT ERROR IF GO BIT IS NOT RESET 


00114? 

001142 


000000 


BIT 

BEQ 

MOV 

BIC 

CLR 

ADD 

MOVB 

SUB 

JSR 

SUB 

NO P 


#G0,RMCS1I 

2 $ 

RMCS1I .S8DDAT 
#*C60,SBDDAT 
SGDDAT 
#4 .(SP) 
#11,a(SP) 

#2 .(SP) 

pc.a(sp)+ 

#10. (SP) 


;G0 BIT RESET?? 

•YES' ' 

•BAD DATA FOR TYPEOUT 


.-GOOD DATA FOR TYPEOUT 


.ERROR NUMBER 

.MOVE SP TO RETURN FOR ERROR 
.•REPORT DEVICE NOT AVAILABLE 
.RESTORE (SP) 
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B 14 


SEO 0170 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 
113 

1U 


037572 

037600 

037606 

037614 

037622 

037624 

037630 

037636 

037642 

037644 

037650 

037652 


037652 

037656 

037662 

037664 

037670 

037672 

037700 

037706 

037714 

037722 

037724 

037730 

037736 

037742 

037744 


037 '50 
037754 
037760 
037764 
037766 
037774 
037776 
040004 
040006 
040014 
040022 
040030 
040036 
040040 
040044 
040052 
040056 
040060 
040064 
040066 


013737 

001336 

001142 

t vn i 

H: 

NOV 

042737 

177701 

001142 


31 C 

013737 

043544 

001140 


MOV 

023737 

001142 

001140 


CMP 

001413 




BED 

062716 

000004 



ADD 

112776 

000012 

000000 


M0V8 

162716 

000002 



SUB 

004736 




JSR 

162716 

000010 



SUB 

000240 




NOP 




3S: 



REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 


RMCS1 I .SBDDAT 
#*C76. SBDDAT 
81S. SGDDAT 
SBDDAT. SGDDAT 
3$ 

#4.(SP) 
#i2.a(s P) 

02. IS P) 
pc.acsPH 
010. (SP) 


;IS FUNCTION CODE CORRECT?? 
.•EXPECTED FUNCTION CODE 
; YES! ! 

.'ERROR NUMBER 

;MOVE SP TO RETURN FOR ERROR 
.•REPORT WRONG FUNCTION CODE 
.-RESTORE (SP) 


005037 

001140 


6S: 

CLR 

013746 

001346 



MOV 

042726 

000377 



BIC 

001010 




BNE 

032737 

040000 

001350 


BIT 

001407 




BEQ 

022737 

000030 

043544 


CMP 

103003 




BHIS 

052737 

040000 

001140 

7$: 

BIS 

013737 

001336 

001142 

8S: 

MOV 

042737 

137777 

001142 


BIC 

023737 

001140 

001142 


CMP 

001413 




BEQ 

062716 

000004 



ADD 

112776 

000014 

000000 


MOVB 

162716 

000002 



SUB 

004736 




JSR 

162716 

000010 



SUB 

000240 




NOP 


REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 
ERRORS ARE SET. OR IF COMPOSITE ERROR IS NOT SET AND 

OTHER ERRORS Aftf SE ? _ EXPECT "ERR" = 0 

IS RMER1 = 0?? 

NO!! 

IS RMERZ = 0?? 

YES* ' 

" ERR " SOUID BE SET 


IS ’ERR" OK?? 

YES!! 

MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER 
MOVE SP TO ERROR RETURN 
REPORT INVALID COMP ERROR 


REPORT AN ERROR IF "TRE" IS SET AND NONE OF THE BITS WHICH SET 
TRE IS SET. OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 
SET TRE IS SET 


005037 

001140 



CLR 

SGDDAT 

005737 

001352 



TST 

RMER1I 

001003 




BNE 

4$ 

005737 

001400 



TST 

RMER2I 

001403 




BEQ 

5$ 

052737 

040000 

001140 

4$: 

BIS 

#ERR. SGDDAT 

013737 

001350 

001142 

5$- 

MOV 

RMDSI. SBDDAT 

042737 

137777 

001142 


BIC 

#*C ERR, SBDDAT 

023737 

001140 

001142 


CMP 

SGDDAT. SBDDAT 

001412 




BEQ 

6S 

062716 

000004 



ADD 

#4,(SP) 

112776 

000047 

000000 


MOVB 

#47.a(SP) 

162716 

000002 



SUB 

#2»(SP) 

004736 




JSR 

pc.a(SP)* 

162716 

000010 



SUB 

#10. (SP) 


SGDDAT 
RMCS2I.-CSP) 
0177. (SP)* 

7% 

#ERR.RMDSI 

8$ 

#SEARCH.81S 

8$ 

#TRE. SGDDAT 
RMCS1 I. SBDDAT 
#*CTRE. SBDDAT 
SGDDAT. SBDDAT 
9S 

#4. (SP) 

#i4.a<sp) 

#2.(SP) 

pc.a(SP)+ 

#10, (SP) 


EXPECT TRE = 0 
WAS DLT, WCE, UPE. NED. NEM 
PGE. MXF OR MDPE SET 
YES 1 1 

WAS* EXCEPTION RECEIVED?? 

NO 1 * 

WAS ’DATA TRANSFERRED?? 

NO!! 

"TRE" SHOULD BE SET 
BAD DATA FOR TYPEOUT 

IS ’TRE" OK?? 

YES' 1 

MOVE’SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT TRE ERROR 
RESTORE (SP) 


9 $: 
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C K 


SEO 0171 


115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 


040066 

040070 

040074 

040102 


040104 

040112 

040120 

040122 

040130 

040136 

040144 

040152 

040160 

040162 

040166 

040174 

040200 

040202 

040206 

040210 


040210 

040216 

040224 

040232 

040240 

040246 

040250 

040254 

040262 

040266 

040270 

040274 


040300 

040304 

040310 

040316 

040322 

040324 

040330 

040336 


010046 

013700 

016037 

012600 


013737 

032737 

001403 

052737 

042737 

013737 

042737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


013737 

042737 

013737 

042737 

023737 

001412 

062716 

112776 

162716 

004736 

162716 

005037 


013746 

052716 

013737 

042637 

001412 

062716 

112776 

162716 


043544 

064704 043536 


043536 

040000 

100000 

077777 

001350 

077777 

001140 

000004 

000006 

000002 

000010 


043536 

177776 

001552 

177776 

001140 

000004 

000254 

000002 

000010 

001140 


043536 

137777 

001346 

001142 

000004 

000026 

000002 


001140 

001350 

001140 

001140 

001142 

001142 

001142 


000000 


USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 

.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF 
.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND ECH 
NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE CONNAND AND OTHER 
STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 
WRITE LOCK IS ON AND THE COWAND IS A WRITE. 

GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 


NOV RO.-(SP) 

NOV 81$, RO 

NOV FNCDTB(R0),78$ 

NOV (SPH.RO 


;;PUSH RO ON STACK 
;GET FUNCTION CODE 
; STORE ENTRY 
;;POP STACK INTO RO 


10 $: 


.•REPORT AN ERROR IF AN UNEXPECTED 
;ATA IS NOT SET AND SHOULD BE SET 
NOV 78$,$GDDAT 

BIT #ERR,RHDSi 

BEQ 10$ 

BIS #ATA,$GDDAT 

BIC #*CATA.$GDDAT 

NOV RNDSI.WDDAT 

BIC #»CATA,$BDDAT 

CNP $GDDAT,$BDDAT 

BEQ 11$ 

ADD #4 ,(SP> 

N0V8 #6,a(SP> 

SUB #2,(SP) 

JSR PC.aCSPH 

SUB #10. (SP) 

NOP 


ATTENTION OCCURRED OR IF 

GET EXPECTED ATA STATUS 
IS CONPOSITE ERROR SET ?? 

NO 1 1 

EXPECT AN ATTENTION 
S' RIP DONT CARES 
GET RECEIVED ATA 
STRIP DONT CARES 
IS ATA OK ?? 

YES 1 1 

NOVE SP TO USERS ERROR CALL 
LOAD ERROR # IN CALL 
NOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP 


001140 

001140 

001142 

001142 

001142 


000000 


11 $: 

.•REPORT ERROR IF ILF IS INCORRECT, I.E., IF ILF DOES NOT CONPARE 
.WITH FUNCTION CODE TABLE 


12 $: 


NOV 78$,$GDDAT 

BIC #*CILF ,$GDDAT 

NOV RHER1I ,$8DDAT 

BIC #*CJLF,$8DDAT 

CNP $GDDAT,$BDDAT 

BEQ 12$ 

ADD #4. (SP) 

NOVB #254,a(SP> 

SUB #2, (SP) 

jsr Pc.a(SP)* 

SUB #10, (SP) 

CLR $GDDAT 


GET EXPECTED ILF 
CLEAR ALL OTHER BITS 
GET RECEIVED ILF 
CLEAR ALL OTHER BITS 
IS ILF OK ?? 

YES 1 1 

NOVE SP TO USERS ERROR CALL 
WRITE ERROR NUNBER IN CALL 
NOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
NOVE SP TO NO ERROR 
CLEAR EXPECTED STATUS 


.REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET 


001142 


000000 


NOV 78$, -(SP) 

BIS #*CWCE,(SP) 

NOV RNCS2I.S8DDAT 
BIC (SP) ♦.SBDDAT 

BEQ 13$ 

ADD #4, (S P) 

NOVB # 26 .a(SP) 

SUB #2,(SP) 


GET WCE STATUS ENABLE 
SET ALL OTHER BITS 
RECEIVED STATUS 
CLEAP WCE IF ENABLED 
BRANCH IF WCE OK 
NOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUNBER 
NOVE SP TO ERROR RETURN 
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D K 


SEQ 0172 


172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 


040342 

040344 

040350 


040350 

040354 

040360 

040366 

040372 

040374 

040400 

040406 

040412 

040414 

040420 


040420 

040424 

040432 

040434 

040440 

040444 

040452 

040456 

040460 

040464 

040472 

040476 

040500 

040504 


040504 

040510 

040516 

040520 

040526 

040530 

040534 

040542 

040546 

040550 

040554 

040562 

040566 


004736 



JSR 

PC.iCSP)* 

REPORT ERROR 

162716 

000010 


SUB 

#10. (SP) 

RESTORE ERROR 




13$: 






.REPORT ERROR 

IF OPI STATUS IS SET AND SHOULD NOT BE SET 

013746 

043536 


NOV 

78$. -(SP) 

GET OPI STATUS ENABLE 

052716 

157777 


BIS 

#*COPI,(SP) 

SET ALL OTHER BITS 

013737 

001352 

001142 

NOV 

RHER1I.SBDDAT 

GET RECEIVED STATUS 

042637 

001142 


BIC 

(SF)*.$BDDAT 

CLEAR OPI IF ENABLED 

001412 



BEQ 

14$ 

BRANCH IF OPI OK 

062716 

000004 


ADD 

#4, (SP) 

HOVE SP TO USER’S ERROR CALL 

112776 

000164 

000000 

H0V8 

#164.a(SP) 

WRITE ERROR NUHBER IN CALL 

162716 

000002 


SUB 

#2,(SP) 

HOVE SP TO ERROR RETURN 

004736 



JSR 

pc.a(sp)+ 

REPORT ERROR 

162716 

000010 


SUB 

#10. (SP) 

RESTORE SP 


013746 

032737 

001402 

042716 

052716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


043536 

000100 001350 

010000 

167777 

001400 001142 
001142 

000004 

000165 000000 
000002 

000010 


012746 

032737 

001404 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 


14$: 

.•REPORT ERROR IF IVC IS SET AND 
;SET AND VV IS NOT RESET 
78$. -(SP) 


15$: 


16$: 


NOV 

BIT #VV.RHDSI 

BEO 15$ 

BIC #IVC.(SP> 

BIS #*CIVC.(SP) 

NOV RNER2I.$BDDAT 

BIC (SP)+.$BDDAT 

BEO 16$ 

ADD #4.<SP> 

N0V8 #165.a<SP> 

SUB #2,(SP) 

JSR PC.8(SP)+ 

SUB #10. (SP) 


IS NOT ENABLED OR IF IVC IS 

.'GET IVC STATUS ENABLE 
;IS VV SET 
*N0 • 1 

'YES'- IVC SHOULD BE 0 

.'SET ALL OTHER BITS 

.-GET RECEIVED STATUS 

.'CLEAR IVC IF ENABLED 

.’BRANCH IF IVC OK 

;NOVE SP TO USERS ERROR CALL 

.'WRITE ERROR NUHBER IN CALL 

,*NOVE SP TO ERROR RETURN 

.'REPORT ERROR 

.•RESTORE SP TO NO ERROR 


177777 

004000 043536 
004000 001350 
004000 

001352 001142 
001142 

000004 

000023 000000 
000002 


BIT 11 (ULE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL WRITE ERRORS. I.E.. 

RNER1 - WlE, WCF 
RNER2 - DPE 
RNCS2 - UPE. 

EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
WRITE ERROR ENABLE BIT IS RESET. 

.'REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED. OR IF 
.'THE DRIVE IS NOT WRITE PROTECTED 


NOV #-1.-(SP) 

BIT #WLE.78$ 

BEQ 17$ 

BIT #WRL.RNDSI 

BNE 18$ 

17$: BIC #WLE.(SP) 

18$: NOV RNER1I.$BDDAT 

BIC (SP)+,$BDDAT 

BEO 19$ 

ADD #4.(SP) 

N0V8 #23.a(SP) 

SUB #2. (SP) 

JSR PC.a(SP>+ 


ASSUNE WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 

NO 1 * 

IS THE DRIVE WRITE PROTECTED ?? 
YES 1 1 

RESET* WLE ENABLE 
GET RECEIVED STATUS 
CLEAR WLE IF ENABLED 
BRANCH IF WLE OK 
HOVE SP TO USERS ERROR CALL 
WRITE ERROR NUHeER IN CALL 
HOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 



SCO 0173 
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229 040570 

230 040574 

231 

232 

233 040574 
254 040600 

235 040606 

236 040610 

237 040614 

238 040622 

239 040626 

240 040630 

241 040634 

242 040642 

243 040646 

244 040650 

245 040654 

246 

247 

248 040654 

249 040660 

250 040666 

251 040670 

252 040674 

253 040702 

254 040706 

255 040710 

256 040714 

257 040722 

258 040726 

259 040730 

260 040734 

261 
26 2 

263 040734 

264 040740 

265 040746 

266 040750 

267 040754 

268 040762 

269 040766 

270 040770 

271 040774 

272 041002 

273 041006 

274 041010 

275 041014 

276 

277 

278 041014 

279 041020 

280 041024 

281 041032 

282 041036 

283 041040 

284 041044 

285 041052 


E 14 


162716 

000010 



SUB 

#10.(SP) 




19$; 






.•REPORT 

ERROR 

IF WCF IS SET AND 

012746 

177777 



NOV 

#-1.-(SP) 

032737 

004000 

043536 


BIT 

#WLE.78$ 

001002 




BNE 

20$ 

042716 

000040 



BIC 

#WCF,(SP) 

013737 

001352 

001142 

20$: 

NOV 

RNER1I .S8DDAT 

042637 

001142 



BIC 

(SP)+,$8DDAT 

001412 




BEQ 

21$ 

062716 

000004 



ADD 

#4,(SP) 

112776 

000G25 

000000 


NOVB 

#25,acsP) 

162716 

000002 



SUB 

#2.(SP) 

004736 




JSR 

pc.acsp)* 

162716 

000010 



SUB 

#10. (SP) 




21$: 






.•REPORT 

ERROR 

IF DPE IS SET AND 

012746 

177777 



NOV 

#-1.-(SP) 

032737 

004000 

043536 


BIT 

#WLE.78$ 

001002 




BNE 

22$ 

042716 

000010 



BIC 

#DPE.(SP) 

013737 

001400 

001142 

22$: 

MOV 

RMER2I.SBDDAT 

042637 

001142 



BIC 

(SP)+.$BDDAT 

001412 




BEQ 

23$ 

062716 

000004 



ADD 

#4,(SP) 

112776 

000040 

000000 


M0V8 

#40,a(SP) 

162716 

000002 



SUB 

#2.(SP> 

004736 




JSR 

PC.a(SP)* 

162716 

000010 



SUB 

#10. (SP) 




23$: 






.•REPORT 

AN ERROR IF UPE IS SET 

012746 

177777 



NOV 

#-1,-(SP) 

032737 

004000 

043536 


BIT 

#WLE,78$ 

001002 




BNE 

24$ 

042716 

020000 



BIC 

#UPE.(S P) 

013737 

001346 

001142 

24$: 

MOV 

RMCS2J.SBDDAT 

042637 

001142 



BIC 

(SP)+.$BDDAT 

001412 




BEQ 

25$ 

062716 

000004 



ADD 

#4.(SP) 

112776 

000024 

oooooo 


M0V8 

#24,a(SP) 

162716 

000002 



SUB 

#2.(SP) 

004736 




JSR 

pc.a(SP)* 

162716 

000010 



SUB 

#10. (SP) 




25$: 






.'REPORT 

AN ERROR IF IAE IS SET 

013746 

043536 



MOV 

78$. -(SP) 

052716 

175777 



BIS 

#*CIAE, (SP) 

013737 

001352 

001142 


MOV 

RMER1I.SBDDAT 

042637 

001142 



BIC 

(SP)+. SBDDAT 

001412 




BEQ 

26$ 

062716 

000004 



ADD 

#4. (SP) 

112776 

000166 

OOOOOO 


MOVB 

#166,a(SP) 

162716 

000002 



SUB 

#2, (SP) 


.-RESTORE SP TO NO ERROR 


WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 
YES 1 ' 

DISABLE WCF ERROR 

GET RECEIVED STATUS 

RESET WCF IF ENABLED 

BRANCH IF WCF OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 


WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ARE ENABLED 
ARE WRITE ERRORS ENABLED ?? 

YES 1 1 

RESET ‘DPE ENABLE 

GET RECEIVED STATUS 

RESET DPE IF ENABLED 

BRANCH IF DPE OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 


AND WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ARE ENABLED 
ARE WRITE ERRORS ENABLED ?? 

YES 1 1 

DISABLE UPE ERROR 
GET RECEIVED STATUS 
RESET UPE IF ENABLED 
BRANCH IF UPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


GET IAE ENABLE 
SET ALL OTHER BITS 
GET RECEIVED STATUS 
CLEAR IAE IF ENABLED 
BRANCH IF IAE IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO ERROR RETURN 
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F 14 


SEO C 


286 041056 

287 041060 

288 041064 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 041064 

307 041070 

308 041076 

309 041100 

310 041104 

311 041112 

312 041116 

313 041120 

314 041124 

315 041132 

316 041136 

317 041140 

318 041144 

319 

320 

321 041144 

322 041150 

323 041156 

324 041160 

325 041164 

326 041172 

327 041176 

328 041200 
041204 
041212 
041216 

332 041220 

333 041224 

334 

335 

336 041224 

337 041230 

338 041, 

339 041i 

340 041J 

341 04i; 

342 041i 


329 

330 

331 


004736 

162716 000010 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 

001412 


26$: 


JSR 

SUB 


PC.i(SP)* 
#10, (SP) 


; REPORT ERROR AND RETURN 
.-MOVE SP TO NO ERROR 


BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL READ/WRITE ERRORS, I.E., 

RMCS1 - TRE 
RMCS2 - DLT.NEN.NXF 
RMDS - L8T 
RNER1 - AOE 


NOTE: 

NOTE: 

NOTE: 


LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
CYLINDER REGISTER IS WRITTEN 

AOE CANNOT BE SET IF LBT IS NOT ALSO SET 

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDI TONS ABOVE 


177777 

001000 043536 
100000 

001346 001142 
001142 

000004 

000032 000000 
000002 

000010 


177777 

001000 043536 
004000 

001346 001142 
001142 

000004 

000167 000000 
000002 

000010 


177777 

001000 043536 
001000 

001346 001142 
001142 


27$: 


; REPORT AN ERROR IF DLT IS SET 
NOV #-1,-(SP) 

BIT #A0E,78$ 

BNE 27$ 

BIC #DLT. (SP) 

NOV RNCS2l,$8DDAT 

BIC (SP)+,$BDDAT 

BEQ 28$ 

ADD #4,(SP) 

NOVB #32,a(SP> 

SUB 02, (SP) 

jsr pc.acsp)* 

SUB #10, (SP) 

28$: 


AND READ/URITE ERRORS ARE NOT ENABLED 
ASSUME ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 

YES ' 1 

RESET* DLT ENABLE 
GET RECEIVED STATUS 
CLEAR DLT IF ENABLED 
BRANCH IF DLT IS OK 
NOVE SP TO USERS ERROR CALL 
WRITE ERROR NUNBER IN CALL 
NOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


.•REPORT ERROR IF NEM IS SET AND 
MOV #-1,-(SP> 

BIT #A0E,78$ 

BNE 29$ 

BIC #NEM, (SP) 

29$: NOV RMCS2I.SBDDAT 

BIC (SP) ♦.SBDDAT 

BEQ 30$ 

ADD #4.(SP) 

NOVB #167.a(SP) 

SUB #2.(SP) 

JSR PC.8(SP)+ 

SUB #10, (SP) 

30$: 


READ/WRITE ERRORS ARE NOT ENABLED 
.-ASSUME ERRORS ARE ENABLED 
;ARE ERRORS ENABLED ?? 

•YES M 
•DISABLE NEN 
.-GET RECEIVED STATUS 
.‘CLEAR NEM IF ENABLED 
.•BRANCH IF NEN IS OK 
;MOVE SP TO USERS ERROR CALL 
.•WRITE ERROR NUMBER IN CALL 
.-MOVE SP TO ERROR RETURN 
.•REPORT ERROR AND RETURN 
,-NOVE SP TO NO ERROR 


.•REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 


31$: 


NOV #-1 ,-(SP) 

BIT #AOE , 78$ 

BNE 31$ 

BIC #NXF , (SP) 

NOV RMCS2I.S6DDAT 

BIC (SP)+,$BDDAT 

BEQ 32$ 


ASSUME ERRORS ARE ENABLED 
ARE DATA ERRORS ENABLED ?? 
YES 1 1 

DISABLE MXF ERROR 
GET RECEIVED STATUS 
CLEAR MXF IF ENABLED 
BRANCH IF MXF IS OK 
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G 14 


SEQ 0175 


343 041260 

344 041264 

345 041272 

346 041276 

347 041300 

348 041304 

349 

350 

351 041304 

352 041310 

353 041316 

354 041320 

355 041326 

356 041330 

357 041334 

358 041342 

359 041346 

360 041350 

361 041354 

362 041362 

363 041366 

364 041370 

365 041374 

366 

367 

368 

369 

370 

371 

372 

373 041374 

374 041402 

375 041404 

376 041412 

377 

378 

379 041412 

380 041416 

381 041424 

382 041426 

383 041432 

384 041440 

385 041444 

386 041446 

387 041452 

388 041460 

389 041464 

390 041466 

391 041472 

392 

393 

394 041472 

395 041476 

396 041504 

397 041506 

398 041512 

399 041520 


062716 

112776 

162716 

004736 

162716 


012746 

032737 

001404 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


000004 



ADD 

000033 

000000 


MOVB 

000002 



SUB 




JSR 

000010 


32$: 

SUB 



.REPORT 

ERROR 

177777 



MOV 

001000 

043536 


BIT 




BEQ 

002000 

001350 


BIT 




BNE 

001000 


33$: 

BIC 

001352 

001142 

34$: 

NOV 

001142 



BIC 




BEQ 

000004 



ADD 

000020 

000000 


MOVB 

000002 



SUB 




JSR 

000010 


-v ^ a 

SUB 


032737 002000 
001403 

042737 000200 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 


35$: 


#4- CSP) 

#33.a(SP) 

#2.(SP) 

pc.a(sp>* 

#i6.(sp) 


IF AOE IS SET AND 
#-1,-(SP) 
#A0E.78$ 

33$ 

#LBT.RMDSI 

34$ 

#AOE. (SP) 
RMER1I.$BDDAT 
(SPH,$BDDAT 
35$ 

# 4 .( 5 ?) 

#20.a(SP) 

#2, (SP) 
pc.a(sp)* 

#10. (SP) 


MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


DATA ERRORS ARE NOT ENABLED 
ASSUME DATA ERRORS ARE ENABLED 
ARE DATA ERRORS EANBLED ?? 

NO 1 1 

IS LBT ALSO SET ?? 

YES 1 1 
DISABLE AOE 
GET RECEIVED STATUS 
CLEAR AOE IF ENABLED 
BRANCH IF AOE IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


177777 

000200 

000400 

001352 

001142 

000004 

000035 

000002 

000010 


177777 

000200 

000200 

001352 

001142 


001370 

043536 

043536 

001142 

000000 


BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
HEADER ERRORS, I.E., 

RMER1 - HCRC,HCE,FER 
RMER2 - BSE,SSE 


RESET THE ENABLING BIT (HCE) 
BIT #HCI, RHOFI 

BEQ 36$ 

BIC #HCE,78$ 

36$: 


IF HEADER COMPARE INHIBIT IS SET 
;IS HCI SET ?? 

*N0 1 1 

■YES DISABLE ALL HEADER ERRORS 


37$: 


.•REPORT AN ERROR IF HCRC IS SET 
MOV #-1 ,-(SP) 

BIT #HCE.78$ 

BNE 37$ 

BIC #HCRC.(SP) 

MOV RMER1I.$BDDAT 

BIC (SP)+.$BDDAT 

BEQ 38$ 

ADD #4,(SP) 

MOVB #35. a (SP) 

SUB #2,(SP) 

JSR PC.a(SPH 

SUB #10. (SP) 

38$: 


AND HEADER ERRORS ARE NOT ENABLED 
ASSUME ERRORS ENABLED 
ARE HEADER ERRORS ENABLED ?? 

YES 1 1 

DISABLE HCRC 
GET RECEIVED STATUS 
RESET HCRC IF ENABLED 
BRANCH IF HCRC IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


.•REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 


043536 

001142 


39$: 


MOV #-1,-(SP) 

BIT #HCE.78$ 

BNE 39$ 

BIC #HCE, (SP) 

MOV RMER1 I , SBDDAT 

BIC (SP)*.$BDDAT 


ASSUME ERRORS ENABLED 
ARE ERRORS ENABLED ?? 
YFS * 1 
DISABLE HCE 
GET RECEIVED STATUS 
CLEAR HCE IF ENABLED 
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H U 


SEQ 0176 


400 

041524 

001412 


BEQ 

40$ 

401 

041526 

062716 

000004 

ADD 

#4, (SP) 
#36.a(SP) 

402 

041532 

112776 

000036 000000 

NOVB 

403 

041540 

162716 

000002 

SUB 

02. (SP) 

404 

041544 

004736 


JSR 

pc.a(SP)* 
#10, (SP) 

405 

406 

041546 

041552 

162716 

000010 

40$: 

SUB 


407 

408 

409 (hi 552 

410 041556 

411 041564 

412 041566 

413 041572 

414 041600 

415 041604 

416 041606 

41 7 041612 

418 041620 

419 041624 

420 041626 

421 041632 
4 22 

423 

424 041632 

425 041636 

426 041644 

4 27 041646 

428 041652 

429 041660 

430 041664 

431 041666 

432 041672 

433 041700 

434 041704 

435 041706 

436 041712 

437 

438 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


177777 

000200 

000020 

001352 

001142 

000004 

000037 

000002 

000010 


177777 

000200 

100000 

001400 

001142 

000004 

000354 

000002 

000010 


043536 

001142 

000000 


; REPORT ERROR IF FER IS SET AND 
MOV #-1,-(SP) 

BIT #HCE,78$ 

BNE 41$ 

BIC #FER, (SP) 

41$: MOV RNER1I.$BDDAT 

BIC (SP)+,$BDDAT 
BEQ 42$ 

ADD #4.(SP) 

NOVB #37.a(SP) 

SUB 02. (SP) 

jsr pc.a(sp)* 

SUB #10, (SP) 

42$: 


BRANCH IF HCE IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


HEADER ERRORS ARE NOT ENABLED 
.'ASSUME FER IS ENABLED 
;ARE HEADER ERRORS ENABLED ?? 
;YES !! 

.•DISABLE FER 
;GET RECEIVED STATUS 
.-RESET FER IF ENABLED 
.'BRANCH IF FER OK 
.-MOVE SP TO USERS ERROR CALL 
.’WRITE ERROR NUMBER IN CALL 
.'MOVE SP TO ERROR RETURN 
.•REPORT ERROR AND RETURN 
.‘MOVE SP TO NO ERROR 


.'REPORT ERROR IF BSE IS SET AND 


043536 

001142 

000000 


43$: 


44$: 


MOV #-1 .-(SP) 

BIT #HCE,78$ 

BNE 43$ 

BIC #BSE.(SP) 

MOV RMER2I,$BDDAT 

BIC (SP) ♦.SBDDAT 

BEQ 44$ 

ADD #4, (SP) 

M0V8 #354.a(SP) 

SUB 02. (SP) 

JSR PC.a(SP)+ 

SUB #10. (SP) 


HEADER ERRORS ARE NOT ENABLED 
ASSUME ERRORS ENABLED 
ARE THEY ENABLED ?? 

YES 1 1 

DISABLE BSE 

GET RECEIVED STATUS 

CLEAR BSE IF ENABLED 

BRANCH IF BSE OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 


440 

041712 

010046 



MOV 

RO. -(SP) 

81S.R0 

441 

041714 

013700 

043544 


MOV 

44 2 

041720 

016037 

064704 

043536 

MOV 

FNCDTB(RO) ,78$ 

443 

444 

445 

041726 

012600 



MOV 

(SP)+,RO 





.-IF SKIP SECTOR ERROR INHIBIT C 

446 





.•RESET THE ENABLING BIT (HCE), l 

447 

041730 

032737 

010000 

001370 

BIT 

#FMT16.RM0FI 

448 

041736 

001404 



BEQ 

45$ 

449 

041740 

032737 

001000 

001370 

BIT 

#SSEI.RMOFI 

450 

041746 

001403 



BEQ 

46$ 

451 

041750 

042737 

000200 

043536 

45$: BIC 

#HCE.78$ 

45 2 

453 

454 

041756 




46$: 






.’REPORT ERROR 

IF SSE IS SET AND 

455 

041756 

012746 

177777 


NOV 

#-1 ,-(SP) 

456 

041762 

032737 

000200 

043536 

BIT 

#HCE,78$ 


;HCE IS USED AS THE ENABLING BIT FOR DETECTING SSE, SO REESTABLISH ENTRY 
.FROM THE FUNCTION CODE TABLE. TO CHECK THE "SSE" BIT 

.-.'PUSH RO ON STACK 
;GET FUNCTION CODE 
.'STORE FUNCTION TABLE ENTRY 
;;POP STACK INTO RO 


18 BIT FORMAT MODE ? 
BR IF YES 
IS SSE I SET ? 

BR IF NO 

DISABLE HEADER ERROR 


.ASSUME ERRORS ENABLED 
;IS HCE ENABLED ? 


SEQ 0177 
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457 041770 

458 041772 

459 041776 

460 042004 

461 042010 

462 042012 

463 042016 

464 042024 

465 042030 

466 042032 

467 042036 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 042036 

479 042042 

480 042050 

481 042052 

482 042056 

483 042064 

484 042070 

485 042072 

486 042076 

487 042104 

488 042110 

489 042112 

490 042116 

491 

492 

493 0/2116 

494 042122 

495 042130 

496 042132 

497 042136 

498 042144 

499 042150 

500 042152 

501 042156 

502 042164 

503 042170 

504 042172 

505 042176 

506 

507 

508 

509 

510 

511 042176 

512 042202 

513 042210 


001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


000040 

00(400 

001142 

000004 

000063 

000002 

000010 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


001142 47$: 


000000 


BNE 47$ 

BIC #SSE.(SP) 

NOV RMER2I.S8DDAT 

BIC (SP)+,$8DDAT 

BEQ 48$ 

ADD #4 ASP) 

MOVB #63.a(SP) 

SUB #2 .(SP) 

jsr pc.acsp)* 

SUB #10. (SP) 


YES ' ' 

DISABLE SSE 

GET RECIEVED STATUS 

CLEAR SSE IF NOT VALID FOR FUNCTION 

BRANCH IF SSE OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 


BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
FIELD ERRORS. I.E.. 

RHCS2 - MDPE 
RMER1 - DCK.ECH 


NOTE: 


ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
DCK IS SET. 


177777 

000100 043536 
000400 

001346 001142 
001142 

000004 

000027 000000 
000002 

000010 


177777 

000100 043536 
100000 

001352 001142 
001142 

000004 

000030 000000 
000002 

000010 


.'REPORT ERROR IF MDPE IS SET AND 
MOV #-1 .-(SP) 

BIT #ECH.78$ 

BNE 49$ 

BIC #MDPE,(SP) 

49$: MOV RMCS2I.S8DDAT 

BIC (SP)+.$8DDAT 

BEQ 50$ 

ADD #4. (SP) 

H0V8 #27. a(SP) 

SUB #2. (SP) 

JSR PC.a(SP)+ 

SUB #10. (SP) 


.'REPORT ERROR IF DCK IS SET AND 
MOV #-1,-(SP) 

BIT #ECH,78$ 

BNE 51$ 

BIC #DCK, (SP) 

51$: MOV RMER1I.SBDDAT 

BIC (SP)+.$8DDAT 
BEQ 52$ 

ADD #4 ASP) 

NOVB #30.3(SP) 

SUB #2, (SP) 

JSR PC.a(SP)+ 

SUB #10, (SP) 


IS NOT ENABLED 
ASSUME ENABLED 

ARE DATA FIELD ERRORS ENABLED ?? 
YES 1 1 

DISBALE MDPE 
GET RECEIVED STATUS 
CLEAR MDPE IF ENABLED 
BRANCH IF MDPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


DATA FIELD ERRORS ARE NOT ENABLED 
.’ASSUME ENABLED 
.'ARE THEY ENABLED ?? 

•yes m 

'DISABLE DCK 
.'GET RECEIVED STATUS 
; CLEAR DCK IF ENABLED 
; BRANCH IF DCK IS OK 
.•MOVE SP TO USERS ERROR CALL 
.'WRITE ERROR NUMBER IN CALL 
.'MOVE SP TO ERROR RETURN 
.'REPORT ERROR AND RETURN 
.-MOVE SP TO NO ERROR 


012746 177777 
032737 000100 043536 
001410 


REPORT ERROR IF ECH IS SET AND, 

DATA FIELD ERRORS ARE NOT ENABLED, OR 
ECI IS SET. OR 
DCK IS NOT SET. 


#-1,-(SP) 

#ECH,78$ 

53$ 


ASSUME ENABLED 
ARE ERRORS ENABLED ?? 
NO ! ! 
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SEQ 0178 


042212 

032737 

004000 

001370 


BIT 

042220 

001004 




BNE 

042222 

032737 

100000 

001352 


BIT 

042230 

001002 




BNE 

042232 

042716 

000100 


53$: 

BIC 

042236 

013737 

001352 

001142 

54$: 

MOV 

042244 

042637 

001142 



BIC 

042250 

001412 




BEQ 

042252 

062716 

000004 



ADD 

042256 

112776 

000031 

000000 


M0V8 

042264 

162716 

000002 



SUB 

042270 

004736 




JSR 

042272 

162716 

000010 



SUB 

042276 




55$: 



526 

527 

528 

529 

530 

531 

532 

533 042276 

534 042304 

535 042306 

536 

537 

533 042312 

539 042320 

540 042322 

541 042330 

542 042332 

543 042336 

544 042344 

545 042350 

546 042354 

547 042356 

548 042362 

549 

550 

551 042364 

552 042372 

553 042400 

554 042404 

555 

556 042412 

557 042420 

558 042422 

559 

560 042430 

561 042436 

562 042440 

563 042446 

564 042452 

565 042460 

566 042464 

567 042466 

568 042472 

569 

570 


#ECI.RHOFI 

53S 

#DCK.RHER1I 

54S 

#ECH. (SP) 
RMER1 I ,$BDDAT 
(SP)+, S8DDAT 
55$ 

#4- (SP) 
#3i.a($p) 
#2,(SP) 
pc.atsp)+ 

#10, (SP) 


IS ECI SET ?? 

YES ' ' 

IS DCK ALSO SET ?? 

YES ' 1 
DISABLE ECH 
GET RECEIVED STATUS 
CLEAR ECH IF ENABLED 
BRANCH IF ECH IS OK 
HOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


022737 

103402 

000137 


013737 

001421 

032737 

001015 

062716 

112776 

005037 

162716 

004736 

162716 

000240 


013737 

163737 

006337 

063737 

032737 

001403 

013737 

023737 

001416 

013737 

062716 

112776 

162716 

004736 

162716 

000240 




; ‘PERFORM THE REMAINING ERROR 

CHECKS FOR DATA TRANSFER COMMANDS 

000030 

043544 


CMP 

#SEARCH,81$ 

;WAS DATA TRANSFERRED ? 




BLO 

56$ 

;8R IF YES 

043510 



JMP 

75$ 

;N0 - EXIT 



;REPORT 

ERROR 

IF RMWC NOT ZERO AND TRE IS ZERO 

001340 

001142 

$6$: 

MOV 

RMWCi,$BDDAT 

;WORD COUNT ZERO?? 




BEQ 

57* 

;YES 

040000 

001336 


BIT 

#TRE,RMCS1I 

.•TRANSFER ERROR DETECTED?? 




BNE 

57$ 

.-YES'! 

000004 



ADD 

#4.(SP) 


000015 

000000 


H0V8 

#i5,a(SP) 

.•ERROR NUFBER 

001140 



CLR 

$GDDAT 

.‘GOOD DATA FOR TYPEOUT 

000002 



SUB 

#2. (SP) 

.•MOVE SP TO RETURN FOR ERROR 




JSR 

PC.a(SP)+ 

.•REPORT WORD COUNT NOT ZERO 

000010 



SUB 

#10, (SP) 

.•RESTORE (SP) 




NOP 




001340 

001414 

001140 

001416 

000010 

001416 

001140 

001342 

000004 

000016 

000002 

000010 


REPORT ERROR IF RMBA IS NOT CORRECT 


001140 

m ntr yn i 

$7$: 

Lnnui 

MOV 

001140 


SUB 

ASL 

001140 


ADD 

001346 


BIT 

BEQ 

001140 


MOV 

001342 

58$: 

CMP 

BEQ 

001142 


MOV 

ADD 

000000 


M0V8 

SUB 

JSR 

SUB 

NOP 


RMMCI,$GDDAT 

RMMCO,$GDDAT 

SGDDAT 

RHBAO,$GDDAT 

#BAJ,RHCS2I 

58$ 

RMBAO,$GDDAT 

SGDDAT.RHBAI 

59$ 

RMBAI,$BDDAT 
#4 ,(SP) 
#16,a<SP> 
#2,<SP> 
PC.a<SP>* 
#10, (SP) 


GET WORD COUNT AT END OF TRANSFER AND 
SUBTRACT STARTING WORD COUNT. 

* 2 

ADD STARTING BUS ADDRESS 

WAS BUS ADDRESS INHIBIT (BAI) SET ?? 
NO 1 1 

ADDRESS SHOULD NOT HAVE CHANGED 

BUS ADDRESS OK?? 

YES' 1 

BAD DATA FOR TYPEOUT 
ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT UNEXPECTED ADDRESS 
RESTORE (SP) 


.•COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 
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SEQ 0179 


571 042474 

572 042476 

573 042502 

574 

575 042506 

576 042512 

577 042520 

578 042522 

579 

580 042526 

581 042532 

582 042536 

583 042540 

584 

585 

586 

587 042542 

588 042550 

589 042556 

590 042564 

591 042572 

592 042576 

593 

594 042602 

595 042610 

596 042614 

597 042622 

598 

599 042626 

600 042634 

601 

602 042636 

603 042644 

604 042646 

605 042652 

606 

607 042660 

608 042666 

609 042670 

610 042674 

611 042702 

612 

613 042704 

614 042712 

615 042714 

616 042720 

617 042726 

618 042730 

619 

620 
621 

622 042732 

623 042736 

624 042744 

625 

626 042752 

627 042760 


005046 

013746 

163716 

012746 

032737 

001402 

062716 

005266 

161666 

003373 

022626 


013737 

013737 

013737 

013737 

000337 

005237 

042 57 
000337 
042737 
062637 

032737 

001411 

023727 

103417 

005237 

162737 

023727 

103406 

005237 

162737 

000766 

023737 

103407 

005237 

163737 

000766 

000240 


005037 

013737 

042737 

032737 

001420 



59$: 

CLR 

-<SP> 

.•NUMBER OF SECTORS TRANSFERRED 

001340 


MOV 

RMWCI.-(SP) 

;GET WORD COUNT AT END OF TRANSFI 

001414 


SUB 

RMWCO.(SP) 

.-SUBTRACT STARTING WORD COUNT. 

000400 


MOV 

#256.. -(SP) 

.•ASSUME 256. WORDS PER SECTOR 

000002 001412 


BIT 

#8IT1 .RMCS10 

.•HEADER t DATA COMMAND ?? 



BEQ 

60$ 

;N0 ! ! 

000002 


ADD 

#2,<SP> 

.•CHANGE TO 258. WORDS PER SECTOR 

000004 

60$: 

INC 

4(SP> 

.•INCREMENT SECTOR COUNT 

000002 


SUB 

(SP) .2CSP) 

.•SUBTRACT ONE SECTOR'S WORTH 



BGT 

60$ 

.•CONTINUE IF NOT DONE 



CMP 

(SP)+.(SP>* 

.•RESTORE STACK 


TRACK AND CYLINDER ADDRESS FROM 




.•NUMBER 

OF SECTORS 


001446 

043536 


MOV 

RMDC0.78S 

.•STORE ORIGINAL CYLINDER 

001420 

043540 


MOV 

RMDA0,79$ 

.•STORE ORIGINAL TRACK 

001420 

043542 


NOV 

RMDA0.80$ 

.•STORE ORIGINAL SECTOR 

001334 

043546 


MOV 

LSTRK.82S 

.•STORE LAST TRACK. 

043546 



SWAB 

82$ 

.-GET TRACK ADDRESS TO LO BYTE AND 

043546 



INC 

82$ 

.•INCREMENT TO GET TOTL # OF TRACKS 

000377 

043540 


BIC 

# A CTADMSK,79$ 

.-SAVE TRACK ADDRESS BITS AND 

043540 



SWAB 

79$ 

.-GET TRACK ADDRESS TO LO BYTE. 

177400 

043542 


BIC 

# A CSADMSK,80$ 

.-SAVE SECTOR ADDRESS BITS 

043542 



ADD 

(SP) *.80$ 


001000 

001444 


BIT 

#SSEJ .RNOFO 

;WAS SSEI SET ? 




BEQ 

61$ 

;N0 f! 

043542 

000040 


CMP 

80$. #32. 

.•SECTOR OVEFLOWED?? 




BLO 

63$ 

;N0! ! 

043540 



INC 

79$ 

.-INCREMENT TRACK 

000040 

043542 


SUB 

#32.. 80$ 

.•ADJUST SECTOR 

043542 

000037 

61$: 

CMP 

80$. #31. 

.•SECTOR OVERFLOWED ? 




BLO 

63$ 

;N0 !! 

043540 


62$: 

INC 

79$ 

.’INCREMENT TRACK 

000037 

043542 


SUB 

#31.. 80$ 

.•ADJUST SECTOR 




BR 

61$ 

.-TRY AGAIN 

043540 

043546 

63$: 

CMP 

79$. 82$ 

.•TRACK OVERFLOWED?? 




BLO 

64$ 

;N0! ! 

043536 



INC 

78$ 

.•INCREMENT CYLINDER 

043546 

043540 


SUB 

82$. 79$ 

.•ADJUST TRACK 




BR 

63$ 

;TRY AGAIN 




NOP 




001140 

001370 

176777 


001142 

001142 


.•REPORT ERROR IF "SSEr* IS SET AFTER TRACK SWITCHING OCCURED 
; THRU DATA TRANSFER 
64$: CLR SGDDAT 

NOV RMOFI.SBDDAT 

BIC # A CSSEI.$BDDAT 


.•SETUP EXPECTED SSEI = 0 
;GET RECIEVED DATA AND 
.-SAVE SSEI BIT FOR COMPARE. 


001000 001444 


BIT #SSEI.RMOFO 

BEQ 66$ 


;UAS SSEI SET BEFORE DATA TRANSFER ? 
;N0 
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SEO 0180 


628 

042762 

123737 

00H21 

001345 


CMPB 

RMDAO+1 .RHDAI+1 .DID TRACK SWITCH OCCUR ’ 

629 

042770 

001411 




BEQ 

65$ 

;N0 

630 

042772 

005737 

001142 



TST 

$8DDAT 

; IS SSEI STILL SET ? 

631 

042776 

001430 




BEQ 

68$ 

;N0 

632 

043000 

062716 

000004 



ADD 

#4, (SP) 

.•POINT TO ERROR 

633 

043004 

112776 

000225 

000000 


wove 

#225.i(SP) 

.-DEFINE ERROR NUMBER 

634 

47C 

043012 

000414 




BR 

67$ 


Ojj 

636 





.REPORT 

ERROR 

IF "SSEI" IS INCORRECT 

637 

043014 

012737 

001000 

001140 

65$: 

NOV 

#SSEI.$GDDAT 

.-SETUP EXPECTED SSEI = 1 

638 

043022 

023737 

001140 

001142 

66$: 

CMP 

$GDDAT.$BDDAT 

;IS SSEI CORRECT ? 

639 

043030 

001413 




BEQ 

68$ 

;YES 

640 

043032 

062716 

000004 



ADD 

#4. CSP) 

.-POINT TO ERROR 

641 

043036 

112776 

000226 

000000 


M0V8 

#226,a(SP) 

.-DEFINE ERROR NUMBER 

642 

043044 

162716 

000002 


67$: 

SUB 

02. (SP) 

.-ADJUST RETURN TO ERROR 

643 

043050 

004736 




JSR 

pc.acsp)*- 

; REPORT ERROR 

644 

043052 

162716 

000010 



SUB 

#10. (SP) 

.-RESTORE (SP) 

645 

043056 

000240 




NOP 



OhO 

647 





.•REPORT 

ERROR 

IF "LBT" IS NOT 

CORRECT 

648 

043060 

005037 

001140 


68$: 

CLR 

$GDDAT 

.-SET GOOD DATA FOR LBT = 0 

649 

043064 

023727 

043536 

001060 


CMP 

78$ .#560. 

.-SHOULD LBT BE SET?? 

650 

043072 

101407 




BLOS 

69$ 

;N0! ! 

651 

043074 

032737 

002000 

001352 


BIT 

#IAE.RMER1I 

.-WAS IAE SET ?? 

652 

043102 

001003 




BNE 

69$ 

.-YES - LBT SHOULD NOT BE SET 

653 

043104 

012737 

002000 

001140 


MOV 

#LBT,$GDDAT 

.-SET GOOD DATA FOR LBT = 1 

654 

043112 

013737 

001350 

001142 

69$: 

MOV 

RMDSI.$8DDAT 

.-BAD DATA FOR TYPEOUT 

655 

043120 

042737 

175777 

001142 


BIC 

#*CL8T,$BDDAT 


656 

043126 

023737 

001140 

001142 


CMP 

$GDDAT.$BDDAT 

;IS LBT CORRECT?? 

657 

043134 

001413 




BEQ 

70$ 

; YES* ' 

658 

043136 

062716 

000004 



ADD 

#4 .(SP) 


659 

043142 

112776 

000017 

000000 


MOVB 

#17.a(SP) 

.-ERROR NUMBER 

660 

043150 

162716 

000002 



SUB 

02. (SP) 

.-MOVE SP TO RETURN FOR ERROR 

661 

043154 

004736 




JSR 

PC.aCSPH 

.•REPORT LBT IS WRONG 

662 

043156 

162716 

000010 



SUB 

#10, (SP) 

.•RESTORE (SP) 

663 

043162 

000240 




NOP 



OOH 

665 





; REPORT 

ERROR 

IF "AOE" IS INCORRECT 

666 

043164 

005037 

001140 


ft)$: 

CLR 

$GDDAT 

.-SET FOR AOE = 0 

667 

043170 

032737 

002000 

001352 


BIT 

#IAE,RMER1I 

.-WAS "IAE" DETECTED?? 

668 

043176 

001031 




BNE 

72$ 

;YES-"AOE" SHOULD BE ZERO 

669 

043200 

023727 

043536 

001060 


CMP 

78$ ,#560. 

.-SHOULD AOE BE SET?? 

670 

043206 

101425 




BLOS 

72$ 

;N0!! 

671 

043210 

005737 

043540 



TST 

79$ 

.-MAYBE 

672 

043214 

001012 




BNE 

71$ 

;YES 

673 

043216 

005737 

043542 



TST 

80$ 


674 

043222 

001007 




BNE 

71$ 

;YES ! ! 

675 

043224 

032737 

000010 

043544 


BIT 

#F2, 81$ ;WAS 

THIS READ OR WRITE CHECK ?? 

676 

043232 

001413 




BEQ 

72$ 

;N0 !! 

677 

043234 

005737 

001340 



TST 

RMWCI 

.-WAS ALL DATA TRANSFERRED ?? 

678 

043240 

001410 




BEQ 

72$ 

;YES ! ! 

679 

043242 

012737 

001000 

001140 

71$: 

MOV 

#AOE,$GDDAT 

.-SET FOR AOE = 1 

680 

043250 

005037 

043540 



CLR 

79$ 

.-CLEAR EXPECTED TRACK 

681 

043254 

012737 

000001 

043542 


MOV 

#1.80$ 

; EXPECT SECTOR = 1 

682 

043262 

013737 

001352 

001142 

72$: 

MOV 

RNER1I,$BDDAT 

.-BAD DATA FOR TYPEOUT 

683 

043270 

042737 

176777 

001142 


BIC 

#*CAOE,$BDDAT 


684 

043276 

023737 

001140 

001142 


CMP 

$GDDAT,$BDDAT 

;IS AOE CORRECTY?? 
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SEQ 0181 


685 043304 

686 043306 

687 043312 

688 043320 

689 043324 

690 043326 

691 043332 

692 

693 

694 043334 

695 043342 

696 043*44 

697 043.552 

698 043356 

699 043364 

700 043372 

701 043400 

702 043402 

703 043406 

704 043414 

705 043420 

706 043422 

707 043426 

708 

709 

710 043430 

711 043436 

712 043444 

713 043452 

714 043460 

715 043462 

716 043466 

717 043474 

718 043500 

719 043502 

720 043506 

721 

722 043510 

723 043514 

724 043520 

725 043522 

726 043526 

727 043530 

728 043534 

729 

730 043536 

731 043540 

732 043542 

733 043544 

734 043546 


001413 

062716 

112776 

162716 

004736 

162716 

000240 


032737 
001062 
013737 
00033 7 
113737 
013737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 


013737 

042737 

013737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

062716 

105776 

001403 

062716 

000402 

162716 

000207 

000000 

000000 

000000 

000000 

000000 


000004 

000020 

000002 

000010 


000000 


002000 001352 


043540 

001140 

043542 

001344 

001140 

000004 

000021 

000002 

000010 


043536 

176000 

001372 

001140 

000004 

000022 

000002 

000010 


000004 

000000 

000004 

000004 


001140 

001140 

001142 

001142 


000000 


73$ 

#4.(SP) 
#20.a(SP) 
#2,(SP) 
pc.a(SP)+ 
#10. (SP) 


; YES! ! 

.-ERROR NUMBER 

;MOVE SP TO RETURN FOR ERROR 
.'REPORT AOE IS WRONG 
.'RESTORE CSP) 


: REPORT ERROR 
fa$: BIT 

BNE 
MOV 
SWAB 
MOVB 
MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 


IF RMDA IS NOT CORRECT 


flAE.RMERII 

75$ 

79$,$GDDAT 

$GDDAT 

80$.$GDDAT 

RMDAI ,$8DDAT 

$GDDAT.$BDDAT 

74$ 

#4, (SP) 
#2i,a(SP) 

#2, (SP) 
pc.a(sp)+ 

#10. (SP) 


WAS THERE AN IAE ERROR ?? 
YES - DONT CHECK RMDA.RMDC 
SETUP EXPECTED DISK ADDRESS 


.•SETUP RECEIVED DISK ADDRESS 
.•COMPARE EXPECTED 8 RECEIVED 
.'BRANCH IF EQUAL 

.■ERROR NUMBER 

.•MOVE SP TO RETURN FOR ERROR 
.'REPORT BAD DISK ADDRESS 
.'RESTORE (SP) 


001140 

001140 

001142 

001142 


000000 


: REPORT ERROR IF RMDC IS INCORRECT 


MOV 78$.$GDDAT 

BIC #*C1777.$GDDAT 

MOV RMDCI.$BDDAT 

CMP $GDDAT.$8DDAT 

BEQ 75$ 

ADD #4, (SP) 

MOVB #22.3(SP) 

SUB #2,(SP) 

JSR PC.a(SP)* 

SUB #l6.(SP) 

NOP 


; SETUP EXPECTED CYLINDER 

.'SETUP RECEIVED CYLINDER 
.•COMPARE CYLINDERS 
.'BRANCH IF EQUAL 

.•ERROR NUMBER 

.•MOVE SP TO RETURN FOR ERROR 
.'REPORT BAD CYLINDER 
.'RESTORE (SP) 


75$: 

ADD 

TSTB 

BEQ 

ADD 

BR 

SUB 

RTS 

#4, (SP) 

a(sp) 

76$ 

#4, (SP) 

77§ 

#4, (SP) 

PC 

.'MOVE (SP) TO ERROR CALL 
;WAS ERROR FOUND?? 

.-MOVE (SP) TO ERROR RETURN 

76$: 

77$: 

.'MOVE (SP) TO NO ERROR RETURN 

78$: 

.WORD 

0 

.'CYLINDER 

79$: 

.WORD 

0 

.'TRACK 1 

80$: 

.WORD 

0 

.'SECTOR ! 

81$: 

.WORD 

0 

.•FUNCTION CODE 

82$: 

.WORD 

0 

.'TOTAL # OF TRACKS = LAST TRACK +1 
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N 14 


SEQ 0182 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 043550 

22 

23 

24 043550 

25 043556 

26 043564 

27 043570 

28 043576 

29 

30 

31 

32 043604 

33 043610 

34 043614 

35 

36 

37 043620 

38 043624 

39 043626 

40 043634 

41 043640 

42 043644 

43 043652 

44 043656 

45 043660 

46 043664 

47 043666 

48 

49 

50 043666 

51 043672 

52 

53 043674 

54 043702 

55 043706 

56 043712 

57 043720 


.SBTTL COMPOSITE ERROR CHECK SUBROUTINE 

THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 
RMER2 AFTER MASKING EACH REGISTER UORD WITH THE USER'S STATUS 
MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 
THE MASKS ARE APPLIED. 


CALL: 

( 1 ) 


JSR 

.WORD 

.WORD 

BR 

NOP 

ERROR 

JSR 


PC.CMPERRSTS 


7 *> 7 


pc.bcsph 


MASK FOR ERROR REGISTER 1 

MASK FOR ERROR REGISTER 2 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 


NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
BE ZERO 


013737 001352 001176 
047637 000000 001176 
062716 000002 
013737 001400 001200 
047637 000000 001200 


062716 

105076 

162716 


005737 

001420 

013737 

005037 

062716 

112776 

162716 

004736 

162716 

000240 


000006 

000000 

000004 


001176 

001176 001142 

001140 

000004 

000066 000000 
000002 

000010 


CMPERRSTS: 

;MASK AND STORE THE CONTENTS OF 
MOV RMER1I.STMP1 

BIC aCSP).$TMP1 

ADD #2, CSP) 

MOV RMER2I ,$TMP2 

BIC a(SP).$TMP2 


CLEAR USER’S ERROR CALL 
ADD #6, (SP) 

CLRB a (SP) 

SUB #4. CSP) 


RMER1 AND RMER2 
STORE RMER1 AT TEMP STORAGE 
MASK RMER1 
MOVE SP TO NEXT MASK 
STORE RMER2 AT TEMP STORAGE 
MASK RMER2 


MOVE SP TO USER'S ERROR CALL 

CLEAR ERROR NUMBER 

LEAVE SP AT NO ERROR RETURN 


;SEE IF 


IS: 


THERE WERE ANY ERRORS 
TST STMP1 

BE 8 1$ 

MOV STMP1 .SBDDAT 
CLR SGDDAT 

ADD #4. CSP) 

MOVB #66.aCSP) 

SUB #2. CSP) 

JSR PC.aCSPH 

SUB #10. CSP) 

NOP 


IN RMER1 , I.E.. STMP1 
;ANY ERRORS TO REPORT?? 

NO * 1 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS FOR TYPEOUT 
MOVE SP TO USER'S ERROR CALL 
CORRECTABLE DATA CHECK ERROR 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


005737 001200 
001420 

013737 001200 001142 
005037 001140 
062716 000004 
112776 000067 000000 
162716 000002 


;SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 (STMP2) 
TST $TMP2 ;ANY ERRORS IN RMER2? 

BEQ 2$ ;N0! ! 


MOV STMP2. SBDDAT 

CLR SGDDAT 

ADD #4. CSP) 

MOVB #67.aCSP) 

SUB #2. CSP) 


.•RECEIVED STATUS FOR TYPEOUT 
.•EXPECTED STATUS FOR TYPEOUT 
.-MOVE SP TO USER'S ERROR CALL 
.•WRITE ERROR NUMBER IN USER'S 
.-MOVE SP TO RETURN FOR ERROR 


CALL 
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SEO 0183 


58 043724 

59 043726 

60 U43732 

61 043734 

62 

63 

64 043734 

65 043740 

66 043744 

67 043746 

68 043752 

69 043754 

70 043760 


004736 

162716 

000240 


062716 

105776 

001403 

062716 

000402 

162716 

000207 


000010 


000004 

000000 

000004 

000004 


pc.aisp)* 

#10, (SP) 


; REPORT ERROR VIA USER 
.-MOVE SP TO NO ERROR RETURN 


; AUGMENT THE RETURN ADDRESS IF ANY ERROR UAS DETECTED 

Ann ML t CO) "MflVF CP m IICPR'C PR 


#4, (SP) 
8 (SP) 

3S 

#4, (SP) 

4$ 

#4, (SP) 
PC 


.’MOVE SP TO USER'S ERROR CALL 
;UAS THERE AN ERROR CALLED?? 
*NO' 1 

;VES- MOVE SP TO ERROR RETURN 

;MOVE SP TO NO ERROR RETURN 
.•RETURN TO USER 


SEQ 0184 
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C 15 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

}l 


043762 


14 

15 043762 

16 043766 

17 043772 

18 

19 

20 043776 
044002 
044006 
044010 
044012 

22 044020 

23 044026 

24 044032 

25 

26 

27 044036 

28 044042 

29 044050 

30 

31 044056 

32 044064 


062716 000004 
105076 000000 
162716 000004 


21 


013746 

013746 

010046 

010146 

012737 

012737 

013700 

0 1 3701 


111160 

016037 

016037 

032737 

001407 


000004 

000006 


044132 

000300 

001276 

001466 


000010 

000000 

000010 


010000 001174 


33 

044066 

062766 

000004 

000010 

34 

044074 

112776 

000111 

000010 

35 

36 

37 
33 

044102 

000422 



>»■ 

o 

>»• 

*4- 

O 

032737 

004000 

001176 

044112 

001021 



39 

044114 

062766 

000004 

000010 

40 

044122 

112776 

000112 

000010 

41 

044130 

000407 



42 





45 





44 

044132 

022626 



45 

044134 

062766 

000004 

000010 

46 

044142 

112776 

000113 

000010 

47 

044150 

162766 

000002 

000010 

48 





49 





50 





51 

044156 





044156 012601 
044160 012600 
044162 012637 000006 


.S8TTL DEVICE SELECT SUBROUTINE 

; THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 
; TEST QUEUE. 


; CALL : 
;( 1 ) 

; ( 2 ) 
;(3) 

; (4) 

DEVSEL: 


JSR 

BR 

NOP 

ERROR 


PC, DEVSEL 

tt 


000004 

000006 


001176 

001174 


; CLEAR USER’S ERROR CALL 
ADD #4, (SP) 

CLRB 8CSP) 

SUB #4, (SP) 


RETURN IF NO ERROR 

RETURN IF ERROR 

ERROR DEFINED BY SUBROUTINE 


;MOVE SP TO USER’S ERROR 
.•CLEAR LOW ORDER BYTE OF FALL 
.-MOVE SP BACK 


.'SAVE USER'S INFORMATION AND SETUP REGISTERS 


MOV ERRVEC.-(SP) 

MOV ERRVEC+2.-(SP) 
MOV R O.-(SP) 

MOV R1 .“(SP) 

MOV #2S, ERRVEC 

MOV #PR6,ERRVEC+2 

MOV SBASE.RO 

MOV TSTOUE ,R1 


;;PUSH ERRVEC ON STACK 

:;PUSH ERRVEC+2 ON STACK 
.-.-PUSH RO ON STACK 
;;PUSH R1 ON STACK 
.•SETUP FOR BUS TIMEOUT 

;R0 = UNIBUS ADDRESS 

;R1 POINTS TO DEVICE NUMBER 


.•SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 

MOVB (R1).RMCS2(R0) .-WRITE UNIT SELECT BITS 
MOV RMCS1 (RO).STMPI ;GET 'DVA'' STATUS 

MOV RMCS2(R0).$TMP0 ;GET 'NED STATUS 


BIT fNED.STMPO 

BEQ 1$ 

ADD #4,10(SP) 

MOVB #111,810(SP> 
BR 3$ 

1$: BIT fDVA.STMPI 

BNE 4$ 

ADD #4,10(SP) 

MOVB #112,aiO(SP) 
BR 3$ 

;HANDLE BUS TIMEOUT 
2 $: CMP (SP) +,(SP)+ 

ADD #4,10(SP) 

MOVB #113.aiO(SP) 
3$: SUB #2,10(SP) 


;IS DEVICE NONEXISTENT ? 

•NO 1 1 

•MOVE SP TO USERS ERROR CALL 
.•WRITE ERROR NUMBER 


IS DEVICE AVAILABLE ? 

YES!.' 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 


ADJUST SP 

MOVE SP TO USERS ERROR CALL 
WRITE BUS TIMEOUT ERROR NUMBER 
ADJUST RETURN TO 'NOP' PRECEDING 
THE ERROR CALL 


.-RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 
4$: 

?*0V (SP)+,R1 ;;POP STACK INTO R1 

MOV (SP)+.RO ;;POP STACK INTO RO 

MOV (SP)+, ERRVEC+2 ;;POP STACK INTO ERRVEC+2 
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D 15 


SEO 0185 


044166 012637 000004 
52 044172 000207 


MOV (SP)*.ERRVEC ;;P OP STACK INTO ERRVEC 

RTS PC .-EXIT 



SEQ 0186 
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E 15 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
1? 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
4J 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 






•CALL: 

; (1) 

JSR 

PC. SEKSTS 






BR 

??? 






NOP 

ERROR 

JSR 

??? 

PC,8(SP>* 

044174 




SEKSTS 

• 

• 






.•CLEAR 

USERS' 

ERROR CALL 

044174 

000240 




NOP 

#4, (SP) 

044176 

062716 

000004 



ADD 

044202 

105076 

000000 



CLRB 

B(SP) 

044206 

162716 

000004 



SUB 

#4, (SP) 

20$ 

044212 

005037 

045452 



CLR 





.•TEST 

.•LOCAL 

FOR MASSBUS CONTROL BUS 
REGISTERS. I.E.. "PAR” 

044216 

032737 

000010 

001352 


BIT 

#PAR,RHER1I 

044224 

001424 




6EQ 

1$ 

044226 

032737 

000010 

001400 


BIT 

#DPE.RMER2I 

044234 

001020 




BNE 

1$ 





.REPORT REGISTER PARITY ERROR 

044236 

005037 

001140 



CLR 

SGDDAT 

044242 

013737 

001352 

001142 


MOV 

RMER1I.S8DDAT 

#4.(SP) 

#56.8(SP) 

044250 

062716 

000004 



ADD 

044254 

112776 

000050 

000000 


MOVB 

044262 

162716 

000002 



SUB 

#2,(SP) 

044266 

004736 




JSR 

PC.8(SP)+ 

#10, (SP) 

044270 

162716 

000010 



SUB 

044274 

000447 




BR 

3$ 


.SBTTL SEEK STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
STORED IN THE GET BUFFER AND TEST PARAMETERS STORFD IN THE PUT BUFFER. 

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE •‘ERROR” TRAP 
OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS: 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


MOVE (SP) TO ERROR CALL 
CLEAR ERROR NUMBER 
MOVE (SP) TO NO ERROR RETURN 
CLEAR ERROR FLAGS 


;UAS PARITY ERROR DETECTED?? 

*N0' * 

•WAS IT DUE TO CONTROL BUS?? 

;NOT SURE!! 

[A USER'S ERROR CALL 
.•EXPECTED STATUS 
.•RECEIVED STATUS 
.’MOVE STACK TO USER'S ERROR 
.•ERROR #50 

.•MOVE SP TO RETURN FOR ERROR 

.•RESTORE STACK 
;IAE SHOULD BE ZERO 

DETERMINE THE VALUE OF "IAE” STATUS BASED ON TRACK. SECTOR. CYLINDER, 
AND THE STATUS OF ••$$£!” BIT DURING A SEEK OPERATION. ALSO. SET ”SKI 






:IF 

CYLINDER ADDRESS IS TOO LARGE 

044276 

012737 

002000 

001140 

1$: 

MOV 

#1AE, SGDDAT 

# 

044304 

052737 

040000 

045452 


BIS 

#SKI.20S 

• 

9 

044312 

023727 

001446 

001060 


CMP 

RMDC0.#560. 

# 

044320 

101035 




BHI 

IS 

• 

9 

044322 

042737 

040000 

045452 


BIC 

#SKI.20S 

• 

9 

044330 

123737 

001421 

001335 


CMP8 

RMDAO+1 .LSTRK+1 

• 

9 

044336 

101026 




BHI 

3$ 

9 

044340 

123727 

001420 

000035 


CMPB 

RMDA0,#29. 

9 


.•SECTOR > 29. ? 
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SEQ 0187 


58 044346 

59 044350 

60 044356 

61 044360 

62 044366 

63 044370 

64 044376 

65 044400 

66 044406 

67 

68 044410 

69 

70 

71 044414 

72 044422 

73 044430 

74 044436 

75 044440 

76 044446 

77 044450 

78 

79 044450 

80 044454 

81 044462 

82 044466 

83 044470 

84 044474 

85 044476 

86 

87 

88 

89 

90 044476 

91 044504 

92 044506 

93 044512 

94 044520 

95 044524 

96 044532 

97 044540 

98 044542 

99 044550 

100 044554 

101 044556 

102 044562 


101420 

032737 

001416 

123727 

101410 

032737 

001406 

123727 

101002 


010000 001444 
0C1420 000036 
001000 001444 
001420 000037 


005037 001140 


104 044564 

105 044572 

106 044600 

107 044606 

108 044614 

109 

110 

111 0446 16 

112 044624 

113 044626 
1U 044632 


013737 

042737 

023737 

001004 

042737 

000413 


062716 

112776 

162716 

004736 

162716 

000240 


032737 

001427 

005037 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 

013737 

m 

042737 

001417 


032737 

001032 

062716 

112776 


001352 

175777 

001140 


000004 

000051 

000002 

000010 


001142 

001142 

001142 


040000 045452 


000000 


010000 001400 


001140 

001400 

000004 

000060 

000100 

000061 

000002 

000010 


001400 

137777 

m 


BLOS 

2 $ 

; 8 R IF NO 


BIT 

#FMT16,RM0F0 

;18 BIT FORMAT ? 


BEO 

3$ 

; YES - SECTOR IS 

INVALID 

CHP 8 

RMDA0,#30. 

.SECTOR > 30. ? 


BLOS 

2 $ 

;BR IF NO 


BIT 

#SSEI .RHOFO 

;1S SSEI CLEAR ? 


BEO 

3S 

;YES - SECTOR IS 

INVALID 

CMP 8 

RMDA0.#31. 

.•SECTOR > 31. ? 


BHI 

3S 

;YES - SECTOR IS 

INVALID 

CLR 

SGDDAT 

.•"IAE" SHOULD - 

) 


: COMPARE EXPECTED AND RECIEVED 
&S: MOV RMER1I.SBDDAT 

B1C #*CIAE.S 8 DDAT 

CMP SGDDAT, S 8 DDAT 

BNE 4$ 

BIC #SKI.20S 

BP 5$ 


’I AT* STATUS 
;1S IAE OK?? 

;SAVE IAE BIT FOR COMPARE 
.•CORRECT ••IAE" STATUS ? 
;BR IF NO 
.’CLEAR SKI FLAG 
;G0 CHECK NEXT ERROR 


.REPORT INCORRECT '•IAE*' STATUS VIA USER'S ERROR CALL 


#4 f (SP> 

#51.8(SP) 

#2,(SP) 

pc.acsp)* 

#10. (SP) 


ERROR 51 

MOVE SP TO RETURN FOR ERROR 
REPORT INCORRECT IAE 
.•RESTORE (SP) 


REPORT ANY I VC ERROR AS 

I VC ERROR WITH VOLUME VALID ZERO 
ERRONEOUS IVC ERROR. VOLUME VALID IS SET 


001142 

000000 

001350 

000000 


001142 

001142 

001140 

001140 


BIT 

BEO 

CLR 

MOV 

ADD 

M0V8 

BIT 

BEQ 

Move 

SUB 

JSR 

SUB 

NOP 


#IVC.RMER2I 

7$ 

SGDDAT 


; IVC ERROR?? 

*N0' 1 

•EXPECTED STATUS 


RMER2I.S6DDAT .-RECEIVED STATUS 


nn 

#4.(SP> 

#60,a<sp> 

fVV.RMOSI 

6 $ 

# 6 i.a(SP) 
#2, (SP) 
pc.a(SP)* 
#10.(SP) 


RMER2I.SBDDAT 
#*CSKI.SBDDAT 
20S.S6DDAT 
#*CSKI. SGDDAT 
8$ 


.‘MOVE SP TO USER'S ERROR 
.‘ERROR 60 IF VV = 0 


ERROR 61 IF VV * 1 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE SP 


.•RECEIVED STATUS 
; CLEAR DONT CARES 
; 6 ET EXPECTED SKI STATUS 
.’CLEAR DONT CARES 
.•BRANCH IF 0 EXPECTED 


040000 001142 


.•REPORT ERROR IF SKI IS NOT SET (IAE UAS NOT DETECTED) 


000004 

000267 


000000 


BIT 
BNE 
ADD 
MO VS 


fSKI.SBDDAT 

9$ 

#4.(SP) 

#267.a(SP) 


UAS SKI DETECTED ?? 

YES 1 ' 

move'sp to users error call 

URITE ERROR NUMBER 
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G 15 


SEQ 0188 


C2 

DC 


115 044640 

116 044644 

117 044646 

118 044652 

119 044654 

120 
121 

122 044654 

123 044662 

124 044664 

125 044670 

126 044676 

127 044702 

128 044704 

129 044710 

130 

131 

132 044712 

133 044720 

134 044722 

135 044726 

136 044734 

137 044740 

138 044746 

139 044752 

140 044754 

141 044760 

142 

143 

144 

145 044762 

146 044770 

147 044772 

148 04*776 

149 045004 

150 045010 

151 045016 

152 045024 

153 045026 

154 045034 

155 045040 

156 045042 

157 045046 
'58 

159 

160 045050 

161 145054 

162 0*5060 

163 04 "064 

164 04^066 

165 

166 

167 045072 

168 045100 

169 045102 

170 045110 

171 045112 


162716 

004736 

-62716 

000443 


032737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001420 

005037 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001427 

005037 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


013746 
042716 
022726 
001 002 
000137 


032737 

001030 

032737 

001024 

013737 


000002 



SUB 

#2,(SP) 




JSR 

pc.a(sp)* 

000010 



SUB 

#io. (sp) 




8R 

10$ 



8$: 





.REPORT 

ERROR 

IF SKI IS SET 

040000 

001142 


BIT 

#SK1,S8DDAT 




BEQ 

9$ 

000004 



ADD 

#4, (SP) 

000054 

000000 


M0V8 

#54,a(SP) 

000002 



SUB 

#2, (SP) 




JSR 

pc.a(sp)* 

000010 



SUB 

#10, (SP) 




NOP 




;REPORT 

ANY DEVICE CHECK 

000200 

001400 

$$: 

BIT 

#DVC,RMER2I 




BEQ 

10$ 

001140 



CLR 

$GDDAT 

001400 

001142 


MOV 

RMER2I ,$8DDAT 

000004 



ADD 

#4. (SP) 

000055 

000000 


M0V8 

#55,a(SP) 

000002 



SUB 

#2, (SP) 




JSR 

pc.a(sp)* 

000010 



SUB 

#i6,(sp) 


020000 001352 \ 0 $: 


NOP 

.-REPORT ANY 
BECAUSE ON 


MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
HOVE SP TO NO ERROR 
GO TO NEXT ERROR CHECK 


IS SKI SET ?? 

NO - SKI IS OK 

MOVE (SP) TO ERROR 

LOAD ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT SEEK ERROR 

RESTORE (SP) 


WAS THERE DVC DURING SEEK?? 
NO 1 1 

EXPECTED STATUS 
RECEIVED STATUS 

ERROR #55 

MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE SP 


'TOPI** ERROR AS OPI WITH MOL 
CYLINDER LATCH DIDN'T RESET 


= 0. OR OPI 


001140 

001352 

000004 

000052 

010000 

000053 

000002 

000010 


001350 

047677 

110100 

045422 


001142 

000000 

001350 

000000 


11 $: 


BIT fOPI.RMERII 

BEQ 12$ 

CLR $GDDAT 

MOV RMER1I,$BDDAT 

ADD #4 .(SP) 

M0V8 #52.B(SP) 

BIT fMOL.RMDSI 

BEQ 11$ 

wove #53,a(sp) 

SUB #2. (SP) 

jsr pc.a(sp)* 

SUB #10, (SP) 

NOP 


.-•TOPI" ERROR?? 

•NO 1 1 

•EXPECTED STATUS 
.•RECEIVED STATUS 
.-MOVE (SP) TO ERROR 
.-LOAD ERROR NUMBER 
;UAS MEDIUM ON LINE?? 

•NO* 1 

;YES- CHANGE ERROR NUMBER 
.•MOVE SP TO RETURN FOR ERROR 
.•REPORT •lOPI" ERROR 
.•RESTORE (SP) 


•SEE IF 'PIP" = 0. AND "ATA". *MOL" AND "VV" = 1 
52$: MOV RMDSI.-(SP) 

BIC # A C<ATA!PIP!MOL!VV>,(SP) 

CMP #ATA!MOL!VV.(SP)+ 

BNE 13$ .-ERROR IN RMDS 

JMP 17$ ;RMDS IS OK 


;IS MOL RESET?? 

;N0 - MOL IS SET 
.-WAS OPI SET 

;YES - DONT REPORT ERROR 
.•EXPECTED STATUS 




.-REPORT ERROR 

IF MOL - 0 AND 

010000 

001350 

13$: 

BIT 

fMOL.RMDSI 




BNE 

14$ 

020000 

001352 


BIT 

#0PI.RMER1I 




BNE 

14$ 

001350 

001140 


MOV 

RMDS1,$GDDAT 
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H 15 


SEO 0189 


’7 2 0451 1 

173 0451 i 

174 

175 


0 
?6 

045134 
045140 

176 045146 

177 045152 

178 045154 

179 045160 

180 
181 

182 045162 

183 045170 

184 045172 

185 045200 

186 045202 

187 045210 

188 045216 
139 045224 

190 045230 

191 045236 

192 045242 

193 045244 

194 045250 

195 

196 

197 045252 

198 045260 

199 045262 

200 045270 

201 045276 

202 045304 

203 045310 

204 045316 

205 045322 

206 

207 045324 

208 045330 

209 

210 

211 045332 

212 045340 

213 045, 

214 04535 

215 045352 

216 045360 

217 045“: 

218 045374 

219 045400 

220 045406 
045412 
045414 

___ 045420 

224 045422 

225 


ft ffi 


221 

22 

22 


ft 


052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 
001030 
032737 
001024 
013737 
052737 
13737 
__,716 
112776 
162716 
004736 
162716 
000240 


045422 


010000 

001350 

000004 

000062 

000002 

000010 


020000 

040000 

001350 

020000 

001350 

000004 

000056 

000002 

000010 


228 045424 


000240 

062716 


001140 

BIS 

001142 

MOV 


ADD 

000000 

NOVB 


SUB 


JSR 


SUB 


NOP 


100000 001350 15$: 


001350 

110600 

001350 

000004 

000057 

000002 


000010 


000100 

010000 

001350 

000100 

001350 

000004 

000064 

000002 

000010 


000004 


001140 

001140 

001142 

000000 


#NOL.$GDDAT 
RMDSI ,$BDDAT 
#4, (SP> 
#62.a(SP) 

02, (SP) 
pc.a(SP)* 
#10. (SP) 


.•REPORT AN ERROR IF ’^IP" IS 
#PIP.RNDSI 
15$ 

#SKI.RMER2I 
15$ 

RMDSI ,$GDDAT 
#PIP.$8D0AT 
RMDSI. $8DDAT 
#4 .(SP) 

#56.a (SP) 

#2. (SP) 
pc.a(SP>* 
#10. (SP) 


.•REPORT AN ERROR IF "ATA" IS NOT 


001350 14$: 

BIT 

BEQ 

001400 

BIT 

BNE 

001140 

MOV 

001142 

BIC 

001142 

MOV 

ADD 

000000 

NOVB 

SUB 

JSR 

SUB 

NOP 


.-RECEIVED STATUS 


.-MOVE SP TO RETURN FOR ERROR 
.•REPORT ERROR VIA USER 


ST1L SET AND SKI NOT SET 
IS ’VIP" STILL SET?? 
NO 1 1 

WAS* M SKI"SET?? 
VES-DONT REPORT PIP 
EXPECTED STATUS 


BIT #ATA, RMDSI 

BNE 16$ 

NOV RMDSI. $GDDAT 

BIS #ATA J MOL ! DPR ! DRV 

NOV RMDSI ,$BDDAT 

ADD #4.(SP) 

NOVB #57.a(SP) 

SUB 02, (SP) 

j sr pc.b(sp)* 

SUB #10. (SP) 

NOP 


RECEIVED STATUS 
MOVE (SP) TO ERROR 
LOAD ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT , T>IP , ‘ SET AFTER SEEK 
.'RESTORE (SP) 


SET 

WAS "ATA" SET ?? 

YES 1 1 

EXPECTED STATUS 
$GDDAT 

RECEIVED STATUS 

MOVE (SP) TO ERROR 

LOAD ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ATTENTION NOT SET DURING 

SEEK TEST 

.•RESTORE (SP) 


001350 

001400 

001140 

001140 

001142 

000000 


.•REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 


16$: 


17$: 


BIT #VV. RMDSI 

BNE 17$ 

BIT #IVC.RMER2I 

BNE 17$ 

NOV RMDSI. $GDDAT 

BIS #VV.$GDDAT 

MOV RMDSI. $BDDAT 

ADD #4. (SP) 

H0V8 #64.a(SP) 

SUB 02, (SP) 

JSR PC.a(SP)* 

SUB #10. (SP) 

NOP 


;IS VV = 0 ?? 

;N0!! 

;IS IVC ALSO 0 ?? 

;N0 - IVC IS SET 
; EXPECTED STATUS 

.'RECEIVED STATUS 

.‘ERROR #64 

.'MOVE SP TO RETURN FOR ERROR 


.'MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 

ADD #4.(SP) .'MOVE (SP) TO ERROR CALL 
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229 045430 

230 045434 

105776 

001403 

000000 


TSTB 

BEQ 

3(SP> 

18$ 

231 045436 

232 045442 

233 

234 045444 

062716 

000402 

000004 


ADD 

BR 

#4, (SP) 
19i 

162716 

000004 

18$: 

SUB 

#4, (SP) 

235 045450 

236 

237 045452 

000207 


19$: 

RTS 

PC 

000000 


20$: 

.WORD 

0 


WAS ERROR CALLED?? 
NO. 1 ! 

MOVE TO ERROR RETURN 


SEQ 0190 


I 15 


;MOVE (SP) TO NO ERROR RETURN 
.'RETURN 

.•ERROR FLAGS 



SCO 0191 
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.S8TTL CONTROLLER CLEAR SUBROUTINE 

;THIS SUBROUTINE CLEARS THE MASS8US CONTROLLER, MASS8US ADAPTERS, 
;AND DRIVES, THEN SELECTS THE DRIVE. 


5 

6 




•CALL: 

JSR 

7 





BR 

8 





NOP 

9 





ERROR 

10 





??? 

12 045454 




CNTCLR: 


045454 

010046 




MOV 

045456 

010146 




MOV 

045460 

013746 

000004 



MOV 

045464 

013746 

000006 



MOV 

13 045470 

012737 

045530 

000004 


MOV 

14 045476 

012737 

000300 

000006 


MOV 

15 045504 

013700 

001276 



MOV 

16 045510 

012760 

000040 

000010 


MOV 

17 045516 

013701 

001466 



MOV 

18 045522 

111160 

000010 



Move 

19 045526 

000412 




BR 

21 045530 

022626 



1$: 

CMP 

22 045532 

062766 

000004 

000010 


ADD 

23 045540 

112776 

000007 

000010 


M0VB 

24 045546 

162766 

000002 

000010 


SUB 

25 045554 




2$: 


045554 

012637 

000006 



MOV 

045560 

012637 

000004 



MOV 

045564 

012601 




MOV 

045566 

012600 




MOV 

26 045570 

000207 




RTS 


PC,CNTCLR 


RO,-(SP> 

RI.-(SP) 

ERRVEC.-(SP) 

ERRVEC+2.-CSP) 

#1$,ERRVEC 

#PR6,ERRVEC+2 

SBASE.RO 

#CLR,RMCS2(R0> 

TSTQUE.R1 

<R1).RMCS2(R0> 

2 $ 

<SP)+, (SP>* 
#4,10<SP> 
#7,ai0(sp> 
#2,10(SP) 

(SPI+.ERRVEC+2 
(SP)+, ERRVEC 
(SP)+.R1 
(SPI+.RO 
PC 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBER 


; ; PUSH RO ON STACK 
; ; PUSH R1 ON STACK 
;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 
.•SETUP FOR BUS TIMEOUT 


;R0 = UNIBUS ADDRESS 
.•CLEAR MASSBUS 
.-GET DEVICE UNDER TEST 
.•SELECT DEVICE 


.•ADJUST STACK 

.-MOVE SP TO USER'S ERROR CALL 
.-WRITE THE ERROR NUMBER 
.•ADJUST SP TO RETURN TO ERROR 

;;POP STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 
;;POP STACK INTO R1 
;;POP STACK INTO RO 
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SEO 0192 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 

22 045572 

23 

24 

25 045572 

26 045576 

27 045602 

28 

29 045606 

30 045614 

31 045622 

32 045630 

33 045636 

34 045640 

35 045644 

36 045652 

37 045656 

38 045660 

39 045664 

40 

41 045666 

42 045672 

43 045700 

44 045702 

45 045706 

46 045714 

47 045720 

48 045722 

49 045726 

50 

51 045730 

52 045736 

53 04*740 

54 045742 

55 045746 

56 045750 

57 045754 


062716 000004 
105076 000000 
162716 000004 


013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

010146 

005046 

013701 

111116 

052716 

012637 


.S8TTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
STATUS STORED IN THE 6ET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
USED FOLLOWING A CONTROLLER CLEAR OPERATION. I.E.. WRITING A 1 IN BIT 
5 OF RMCS2. BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 

STATUS PERTINENT TO THE DEVICE IS NOT CHECKED. IN PARTICULAR. THE 
FOLLOWING STATUS BITS ARE NOT CHECKED: 

ATA.ERR.PIP.MOL.WRL.LBT.PGM.VV.OM.UNS.SKI.DVC 


JSR PC.CLRSTS 

BR ??? 

NOP 

ERROR 

JSR PC.a(SP)* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


CLRSTS: 


001336 

100000 

004200 

001140 

000004 

000126 

000002 

000010 


001140 

001342 

000004 

000127 

000002 

000010 


001142 

001142 

001140 

001142 


000000 


001142 


000000 


001346 001142 


001466 


000100 

001140 


.•CLEAR USER'S 
ADD 
CLRB 
SUB 

.-REPORT ERROR 
IS: MOV 

BIC 
MOV 
CMP 
BEO 
ADD 
MOVB 
SUB 
JSR 

sue 

NOP 

;REPORT ERROR 
Hi CLR 

MOV 
BEO 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

;REPORT ERROR 
$S: MOV 

MOV 
CLR 
MOV 
MOVB 
BIS 
MOV 


ERROR CALL 

#4, (SP) .-MOVE ! 

a(SP> .-CLEAR 

#4, (SP) .-MOVE 

IF RMCS1 NOT INITIALIZED 
RMCS1I.SBDDAT ;VERIF 
#SC. SBDDAT ;IGNORI 

#DVA!RDY,SGDDAT ;EXPEC 
SGDDAT.SBDDAT ;COMPA 
2$ ;BRANCI 

#4, (SP) .-MOVE 

#1$6.a(SP> ;WITE l 

#2,(SP) .-MOVE 

PC.a(SP)* ;REPOR 

#10. (SP) .-MOVE 

IF RMBA NOT RESET 
SGDDAT ;VER IF 

RMBAI .SBDDAT 
3$ ;BRANCi 

#4.(SP) .-MOVE 

#1$7.a(SP) ;WITE 

#2. (SP) .-MOVE 

PC.a(SP)* ;REPOR 

#10. (SP) .-MOVE 

IF RMCS2 NOT INITIALIZED 


.-MOVE SP TO ERROR 
.•CLEAR ERROR NUMBER 
.•MOVE SP BACK TO NO ERROR 
ALIZED 

.•VERIFY RMCS1 

.•IGNORE SPECIAL CONDITION 

.•EXPECT DVA S RDY 

.•COMPARE EXPECTED, RECEIVED 

.•BRANCH IF EQUAL 

.-MOVE SP TO USER'S ERROR CALL 

;WITE ERROR NUMBER IN CALL 

.-MOVE SP TO RETURN FOR ERROR 

.•REPORT ERROR VIA USER 

.-MOVE SP BACK TO NO ERROR 


.•VERIFY RMBA IS ZERO 

; BRANCH IF ZERO 
.-MOVE SP TO USER'S ERROR CALL 
;WITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN FOR ERROR 
.■REPORT ERROR VIA USER 
.•MOVE SP BACK TO NO ERROR 


RMCS2I .SBDDAT 
RI.-(SP) 

-(SP) 
TST0UE.R1 
(R1) , (SP) 

#IR, (SP) 
(SP5+, SGDDAT 


VERIFY RMCS2 
.-PUSH R1 ON STACK 
EXPECT IR 8 UNIT NUMBER 
R1 = ADDRESS OF TEST QUE 



SEQ 0193 
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58 :'5760 

59 045762 

60 045770 

61 045772 

62 045776 

63 046004 

64 046010 

65 046012 

66 046016 

67 

68 046020 

69 046024 

70 046032 

71 046040 

72 046042 

73 046046 

74 046054 

75 046060 

76 046062 

77 046066 

78 

79 046070 

80 046076 

81 046104 

82 046112 

83 046120 

84 046122 

85 046126 

86 046134 

87 046140 

88 046142 

89 046146 

90 

91 046150 

92 046154 

93 046162 

94 046164 

95 046170 

96 046176 

97 046202 

98 046204 

99 046210 
100 

101 046212 

102 046220 

103 046226 

104 046234 

105 046242 

106 C46244 

107 046250 

108 046256 

109 046262 

110 046264 

111 046270 

112 

113 046272 

114 046276 


012601 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

042737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 


001140 001142 
000004 

000130 000000 
000002 

000010 


001140 

001352 

040000 

000004 

000131 

000002 

000010 


001362 

000046 

000010 

001140 

000004 

000133 

000002 

000010 


001140 

001404 

000004 

000135 

000002 

000010 


001376 

140000 

011777 

001140 

000004 

000136 

000002 

000010 


001140 

001400 


001142 

001142 


000000 


001142 

001142 

001140 

001142 


000000 


MOV (SP)*.R1 ;;POP STACK 

CMP SGDDAT, SBDDAT ; COMPARE EXI 

BEQ 4$ ; BRANCH IF I 

ADD #4.(SP) ;MOVE SP TO 

MOVB flSo.a(SP) ;WITE ERROR 

SUB #2. (SP) .-MOVE SP TO 

JSR PC.i(SP)* .-REPORT ERR 

SUB #10. (SP) .-MOVE SP BA 

NOP 

ERROR IF RMER1 NOT RESET-IGNORE UNS 
CLR SGDDAT .-VERIFY RMEi 

MOV RMER1I .S8DDAT 

BIC #UNS,$BDDAT .-IGNORE UNS, 

BEQ 5S .-BRANCH IF 

ADD #4. (SP) .-MOVE SP TO 

MOVB #131.a(SP) ;WITE ERROR 

SUB #2. (SP) .-MOVE SP TO 

JSR PC.3(SP)+ .-REPORT ERR 

SUB #10. (SP) .-MOVE SP BA 


; REPORT 

4S: 


.-POP STACK INTO R1 
COMPARE EXPECTED & RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


CLR SGDDAT .-VERIFY RMER1 

MOV RMER1I .S8DDAT 

BIC #UNS.$BDDAT .-IGNORE UNSAFE 

BEQ 5S .-BRANCH IF ZERO 

ADD #4. (SP) .-MOVE SP TO USER'S ERROI 

MOVB #l3l.a(SP) ;WITE ERROR NUMBER IN C 

SUB #2, (SP) .‘MOVE SP TO RETURN FOR I 

JSR PC.3(SPH .-REPORT ERROR VIA USER 

SUB #10. (SP) .‘MOVE SP BACK TO NO ERRi 

NOP 

ERROR IF RMMR1 NOT INITIAL I ZED-IGNORE UC.LS.LST 


;REPORT 

3 $: 


IGNORE UNSAFE 

BRANCH IF ZERO 

MOVE SP TO USER'S ERROR CALL 

WI TE ERROR NUMBER IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR 


MOV RMMR1I.SBDDAT ; 

BIC #WC!LS!LST,SBDDAT 

MOV #MUD. SGDDAT ; 

CMP SGDDAT. SBDDAT ; 

BEQ 6S ;l 

ADD #4. (SP) ;l 

MOVB #133.a(SP) 

SUB #2,(SP) 

JSR PC.a(SP)+ 

SUB #10. (SP) .* 


VERIFY RMMR 

.-IGNORE WORD CLOCK. SCT. TRK 
EXPECT WRITE DATA BIT 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF 0 

MOVE SP TO USER'S ERROR CALL 
UITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


001142 


000000 


001142 

001142 

001140 

001142 


000000 


.-REPORT 

6S: 


NOP 

AN ERROR IF RMEC2 IS NOT RESET 


;REPORT 

H: 


CLR SGDDAT 

MOV RMEC2I. SBDDAT 

BEQ 7S 

ADD #4.(SP) 

MOVB #135.a(SP) 

SUB 02 ASP) 

JSR PC.a(SP)+ 

SUB #l6.(SP> 

NOP 


.-EXPECT ZEROS 
.-VERIFY RMEC2=0 

.-MOVE SP TO USER'S ERROR CALL 
.-W1TE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
; REPORT ERROR VIA USER 
.-MOVE SP BACK TO NO ERROR 


001142 


; REPORT 
1$: 


ERROR IF RMMR2 NOT INITIALIZED-IGNORE RQA.RQB 
MOV RMMR2I. SBDDAT .-VERIFY RMMR2 

BIC #RQA!RQB. SBDDAT 

MOV #TS Til 777. SGDDAT .-EXPECT TEST BIT ON 

CMP SGDDAT. SBDDAT 

BEQ 8S 

ADD #4. (SP) .-MOVE SP TO USER'S ERROR CALL 

MOVB #1$6.a(SP) ,-WITE ERROR NUMBER IN CALL 

SUB 02 ASP) .-MOVE SP TO RETURN FOR ERROR 

JSR PC.a(SP)+ .-REPORT ERROR VIA USER 

SUB #l6.(SP) .-MOVE SP BACK TO NO ERROR 

NOP 


ERROR IF RMER2 NOT RESET-IGNORE SKI.DVC 


SGDDAT 

RMER2I. SBDDAT 


.-EXPECT ALL ZEROS 
.-VERIFY RMER2 


n 15 


SEQ 0194 
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115 

046304 

042737 

040200 

001142 


BIC 

#SKI !DVC,$BDDAT 

IGNORE DEVICE ERRORS 

116 

046312 

001413 




BEO 

9$ 

BRANCH IF OTHER BITS 0 

117 

046314 

062716 

000004 



ADD 

#4,(SP) 

MOVE SP TO USER'S ERROR CALL 

118 

046320 

112776 

000174 

000000 


MOVB 

#174.a(SP) 

UITE ERROR NUMBER IN CALL 

119 

046326 

162716 

000002 



SUB 

#2,( SP) 

MOVE SP TO RETURN FOR ERROR 

120 

046332 

004736 




JSR 

pc.acsp)* 

REPORT ERROR VIA USER 

121 

046334 

162716 

000010 



SUB 

#10, (SP) 

MOVE SP BACK TO NO ERROR 

122 

046340 

000240 




NOP 



123 





;REPORT 

ERROR 

IF RMDS NOT INITIALIZED 

124 

046342 

013737 

001350 

001142 

$$: 

MOV 

RMDSI,$BDDAT 

: TEST DRIVE STATUS REGISTER 

125 

046350 

042737 

177177 

001142 


BIC 

#*C<DRY!DPR>,$8DDAT 

126 

046356 

012737 

000600 

001140 


MOV 

#DPR!DRY,$GDDAT 

EXPECTED DRIVE STATUS 

127 

046364 

023737 

001140 

001142 


CMP 

$GDDAT,$BDDAT 

COMPARE EXPECTED 8 RECEIVED 

'28 

046372 

001413 




BEQ 

10$ 

BRANCH IF EQUAL 

129 

046374 

062716 

000004 



ADD 

#4, (SP) 

MOVE SP TO USER'S ERROR CALL 

130 

046400 

112776 

000134 

000000 


MOVB 

#134,a(SP) 

WRITE ERROR NUMBER 

131 

046406 

162716 

000002 



SUB 

#2, (SP) 

MOVE SP TO RETURN FOR ERROR 

132 

046412 

004736 




JSR 

pc.a(SP)* 

REPORT ERROR TO USER 

133 

046414 

162716 

000010 



SUB 

#10, (SP) 

MOVE SP BACK TO NO ERROR 

134 

046420 

000240 




NOP 



135 

046422 

062716 

000004 


10$: 

ADD 

#4, (SP) 

MOVE SP TO ERROR CALL 

136 

046426 

105776 

000000 



TSTB 

a(SP) 

WAS AN ERROE DETECTED?? 

137 

046432 

001403 




BEO 

11 $ 

NO!! 

138 

046434 

062716 

000004 



ADD 

#4, (SP) 

YES - MOVE TO ERROR RETURN 

139 

046440 

000402 




BR 

12$ 


140 

046442 

162716 

000004 


11$: 

SUB 

#4, (SP) 

.-MOVE SP TO NO ERROR RETURN 

141 

046446 

000240 



12$: 

NOP 



142 

046450 

000207 




RTS 

PC 
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N 15 


SEQ 0195 


1 .S8TTL PACK ACKNOWLEDGE STATUS CHECK 

THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
REPORTED TO THE USER VIA THE USER'S ERROR CALL. 


CALL: 






;(1) 

JSR 

PC. ACKSTS 







BR 

• « • 

RETURN HERE IF NO ERROR 





• 

0 

NOP 


RETURN HERE TO REPORT AN ERROR 





• 

0 

ERROR 


ERROR NUMBER DEFINED BY SUB 






JSR 

PC.i(SP)* 

GO BACK TO SUB FOR MORE ERROR CHECKS 





9 

??? 


RETURN HERE IF NO MORE ERRORS 

046452 




ACKSTS: 








.•CLEAR USER'S 

ERROR CALL 


046452 

062716 

000004 



ADD 

#4 ,<SP> 

.-MOVE SP TO ERROR CALL 

046456 

105076 

000000 



CLRB 

3 (SP) 

.•CLEAR LOW ORDER BYTE 

046462 

162716 

000004 



SUB 

#4, (SPJ 

.•MOVE SP BACK 





.•REPORT 

AN ERROR IF "VV" IS 0 


046466 

032737 

000100 

001350 


BIT 

#VV,RMDSI 

;IS VOLUME VALID SET?? 

046474 

001024 




BNE 

1$ 

; YES ! ! 

046476 

013737 

001350 

001140 


MOV 

RMDSI.SGDDAT 

.•EXPECTED STATUS 

046504 

052737 

000100 

001140 


BIS 

#VV,$GDDAT 


046512 

013737 

001350 

001142 


MOV 

RMDSI.SBDDAT 

.‘RECEIVED STATUS 

046520 

062716 

000004 



ADD 

#4, (SP) 

.-MOVE SP TO ERROR CALL 

046524 

112776 

000155 

000000 


M0V8 

#155. a (SP) 

.•WRITE NUMBER IN ERROR CALL 

046532 

162716 

000002 



SUB 

#2.(SP) 

.•MOVE SP TO RETURN FOR ERROR 

046536 

004736 




JSR 

pc.a(sp)* 

; REPORT THE ERROR 

046540 

162716 

000010 



SUB 

#10. (SP) 

.‘MOVE SP BACK TO BRANCH 

046544 

000240 




NOP 



046546 




1$: 








.•REPORT 

AN ERROR IF , W)L" IS 0 


046546 

032737 

010000 

001350 


BIT 

#M0L.RMDS1 

;IS MOL SET?? 

046554 

001024 




BNE 

2$ 

;YESH 

046556 

013737 

001350 

001140 


MOV 

RMDSI .SGDDAT 

.•EXPECTED STATUS 

046564 

052737 

010000 

001140 


BIS 

#M0L.$GDDAT 


046572 

013737 

001350 

001142 


MOV 

RMDSI.SBDDAT 

.•RECEIVED STATUS 

046600 

062716 

000004 



ADD 

#4, (SP) 

.-MOVE SP TO ERROR CALL 

046604 

112776 

000041 

000000 


MOVB 

#4i.a(SP) 

.-WRITE NUMBER OF ERROR IN CALL 

046612 

162716 

000002 



SUB 

#2, (SP) 

.-MOVE SP TO RETURN FOR ERROR 

046616 

004736 




JSR 

pc.a(sp)* 

.•REPORT TH ERROR 

046620 

162716 

000010 



SUB 

#10. (SP) 

.•MOVE SP TO BRANCH 

046624 

000240 




NOP 



046626 




2$: 








;SEE IF 

•XJNS" 

.’TOPI’VUHR'V’ILR" 

, OR "ILF" IS SET 

046626 

032737 

060007 

001352 


BIT 

#UNS OPI ! RMR ! ILR J ILF . RMER1 1 

046634 

001570 




BEQ 

7S 






.•REPORT 

AN ERROR IF 'UNS" IS SET 

046636 

032737 

040000 

001352 


BIT 

#UNS,RHER1 I 

.•WAS UNS SET?? 

046644 

001424 




BEQ 

3$ 

;N0! ! 

046646 

013737 

001352 

001142 


NOV 

RMER1I.S8DDAT 

.•RECEIVED STATUS 



e 16 
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58 046654 

59 046662 

60 046670 

61 046674 

62 046702 

63 046706 

64 046710 

65 046714 

66 046716 

67 

68 

69 046716 

70 046724 

71 046726 

72 046734 

73 046742 

74 046750 

75 046754 

76 046762 

77 046766 

78 046770 

79 046774 

80 046776 

81 
82 

83 046776 

84 047004 

85 047006 

86 047014 

87 047022 

88 047030 

89 047034 

90 047042 

91 047046 

92 047050 

93 047054 

94 047056 

95 

96 

97 047056 

98 047064 

99 047066 

100 047074 

101 047102 

102 047110 

103 047114 

104 047122 

105 047126 

106 047130 

107 047134 

108 047136 

109 

110 

111 047136 

112 047144 

113 047146 

114 047154 


013737 

042737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

013737 

042737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

013737 

042737 

062716 

112776 

162716 

004736 

162716 

C90240 


032737 

001424 

013737 

013737 

042737 

062716 

112776 

162716 

004736 

162716 

000240 


001352 

040000 

000004 

000042 

000002 

000010 


001352 

001352 

020000 

000004 

000043 

000002 

000010 


001140 

001140 

000000 


020000 001352 


001142 

001140 

001140 

000000 


000004 001352 


001352 

001352 

000004 

000004 

000044 

000002 

000010 


001142 

001140 

001140 

000000 


001352 

001352 

000002 

000004 

000045 

000002 

000010 


032737 000001 
001424 

013737 001352 
013737 001352 


MOV RMER1I.SGDDAT 

81 C #UNS,$GDDAT 

ADD #4.(SP) 

M0V8 #42,a(SP> 

SUB 02 ASP) 

jsr pc.acspj* 

SUB #10. (SP) 

NOP 


.•REPORT ANY OP! ERROR 


BIT #0PI.RMER1I 

8EQ 4$ 

MOV RMER1I.S8DDAT 

MOV RMER1I.SGDDAT 

BIC fOPI.SGDDAT 

ADD #4 .(SP) 

MOVB #43.a(SP) 

SUB 02 ASP) 

jsr pc.a<sp)+ 

sue # 10 . (sp) 

NOP 


.•REPORT ANY RMR ERROR 


81 T #RMR.RMER1I 

BEQ 5$ 

MOV RMER1 J.SBDDAT 

MOV RMER1I.SGDDAT 

BIC #RMR.$GDDAT 

ADD #4,(SP> 

MOVB #44,8(SP) 

SUB 02 ASP) 

jsr p c.atsp)* 

SUB #10. (SP) 

NOP 


000002 001352 


001142 

001140 

001140 

000000 


.•REPORT ANY 

ILR ERROR 

BIT 

#ILR.RMER1I 

BEQ 

6$ 

MOV 

RMER1I.S8DDAT 

MOV 

RMER1I.SGDDAT 

BIC 

#ILR.SGDDAT 

ADD 

#4.(SP) 

MOVB 

#45.a(SP> 

SUB 

02. (SP) 

JSR 

pc.a(sp)+ 

SUB 

#10. (SP) 

NOP 


6 $: 



001352 

001142 

001140 


.•REPORT ANY 
BIT 
BEQ 
MOV 
MOV 


ILF ERROR 
#ILF.RMER1I 

7S 

RMER1I.SBDDAT 

RMER1I.SGDDAT 


SEQ 0196 


.•EXPECTED STATUS 

.MOVE SP TO ERROR CALL 
.-WRITE NUMBER OF ERROR IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
.•REPORT THE ERROR VIA USER 
.-MOVE SP TO NO ERROR RETURN 


WAS OPI SET ?? 

NO!! 

RECEIVED STATUS 
EXPECTED STATUS 

MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


WAS RMR SET?? 

NO!! 

RECEIVED STATUS 
EXPECTED STATUS 

MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


;WAS ILR SET?? 
;N0! ! 

.•RECEIVED STATUS 
.•EXPECTED STATUS 


MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


WAS ILF SET?? 

NQ 1 1 

RECEIVED STATUS 
EXPECTED STATUS 
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C 1£ 


SEO 0197 


115 

047162 

042737 

000001 

001140 


81 C 

#ILF,$GDDAT 


116 

047170 

062716 

000004 



ADD 

#4, (SP) 

.-MOVE SP TO ERROR CALL 

117 

047174 

112776 

000046 

000000 


M0V8 

#46.a(SP> 

.-WRITE NUMBER OF ERROR IN CALL 

118 

047202 

162716 

000002 



SUB 

02 AS P) 

.‘MOVE SP TO RETURN FOR ERROR 

119 

047206 

004736 



JSR 

pc.aisp )♦ 

#10, (SF) 

.•REPORT THE ERROR VIA USER 

120 

047210 

162716 

000010 



SUB 

.-MOVE SP TO NO ERROR RETURN 

121 

122 

123 

124 

047214 

047216 

000240 



7$: 

NOP 







; AUGMENT RETURN 

ADDRESS IF 

ERROR WAS FOUND 

125 

047216 

062716 

000004 



ADD 

#4,<SP> 

.-MOVE SP TO ERROR CALL 

126 

047222 

105776 

000000 



TST8 

a<sp> 

.-WAS ERROR FOUND?? 

127 

047226 

001403 




BEO 

8$ 

;N0! ! 

128 

047230 

062716 

000004 



aDD 

#4, (SP) 

; YES - MOVE TO ERROR RETURN 

129 

047234 

000402 




BR 

9$ 


130 

047236 

162716 

000004 


8$: 

SUB 

#4, (SP) 

,’MOVE SP TO NO ERROR RETURN 

131 

047242 

000240 



9$: 

NOP 



132 

047244 

000207 




RTS 

PC 
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D 16 


SEO 0198 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 047246 

16 
17 

IS 047246 

19 047252 

20 047256 

21 
22 

23 

24 047262 

25 047270 

26 

27 

28 

29 047272 

30 047300 

31 047302 

32 047310 

33 047312 

34 047320 

35 047326 

36 047334 

37 047340 

38 047346 

39 047352 

40 047354 

41 047360 

42 047362 

43 

44 

45 047362 

46 047370 

47 047372 

48 047400 

49 047406 

50 047414 

51 047420 

52 047426 

53 047432 

54 047434 

55 047440 

56 047442 

57 


062716 000004 
105076 000000 
162716 000004 


032737 022011 
001553 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


.S8TTL RECALIBRATE STATUS CHECK SUBROUTINE 

.-THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 
.•USING THE STATUS STORED IN THE GET BUFFER. 


CALL: 

( 1 ) 


JSR 

BR 

NOP 

ERROR 

JSR 


PC.RCLSTS 


pc.acsp)* 


RCLSTS: 


.•CLEAR USER'S ERROR NUMBER 
ADD #4, (SP) 

CLRB a (SP) 

SUB #4.(SP) 


.-CALL SUBROUTINE 
RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


.•CLEAR USER'S ERROR CALL 
.-MOVE SP BACK TO BRANCH 


000010 

000010 

001352 

000010 

001352 

000004 

000050 

000002 

000010 


001352 

001352 

001400 

001140 

001140 

001142 

000000 


.-SEE IF VAR 
BIT 
BEQ 


OR "ILF" OR *10PI" OR IAE IS SET 
#OPI .‘PAR! ILF IIAE.RMER1 1 

5$ .-NONE ARE SET - GO TO NEXT CHECK 


.•REPORT ANY MASSBUS CONTROL BUS PARITY ERROR. I.E.. 
;"PAR" = 1 AND "DPE” = 0 

BIT fPAR.RMERI I 

BEQ IS 

BIT #DPE.RMER2I 

8NE 1$ 

MOV RMER11.SGDDAT 

BIC fPAR.SGDDAl 

MOV RMER1I.SBDDAT 

ADD #4.(SP> .-MOVE 

MOVB #50.3(SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

SUB #10, (SP) 

NOP 


;UAS "PAR" SET?? 

;N0! ! 

;UAS *DPE" SET?? 

;YES - NOT A REGISTER ERROR 
.•EXPECTED STATUS 

.•RECEIVED STATUS 
SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
GO REPORT ERROR 
MOVE SP BACK TO BRANCH 


IS: 




; REPORT ANY ' 

000001 

001352 

BIT 



BEQ 

001352 

001140 

MOV 

000001 

001140 

BIC 

001352 

001142 

MOV 

000004 


ADD 

000071 

000000 

MOVB 

000002 


SUB 



JSR 

000010 


SUB 



NOP 


*ILF" ERROR 
#ILF.RMER1I 

2S 

RMER1I.SGDDAT 
#ILF .SGDDAT 
RMER1I .S8DDAT 
#4. (SP) 
#7l,a<SP) 

#2, (SP) 
PC.a(SP)+ 

#10, (SP) 


.-WAS "ILF" SET?? 
•NO 1 1 

•EXPECTED STATUS 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


2S: 
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SEQ 0199 


58 

59 

60 

61 047442 

62 047450 

63 047452 

64 047460 

65 047466 

66 047474 

67 047500 

68 047506 

69 047514 

70 047516 

71 047524 

72 047530 

73 047532 

74 047536 

75 047540 

76 

77 

78 047540 

79 047546 

80 047550 

81 047556 

82 047564 

83 047572 

84 047576 

85 047604 

86 047610 

87 047612 

88 047616 

89 047620 

90 

91 

92 047620 

93 047626 

94 

95 

96 

97 

98 

99 047630 

100 047636 

101 047640 

102 047646 

103 047654 

104 047662 

105 047666 

106 047674 

10 7 047702 

108 047704 

109 047712 

110 047716 

111 047720 

112 047724 

113 047726 


032737 

001433 

013737 

042737 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001517 


032737 

001433 

013737 

042737 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


020000 001352 


001352 

020000 

001352 

000004 

000072 

010000 

000073 

000002 

000010 


001140 

001140 

001142 

000000 

001350 

000000 


002000 001352 


001352 

002000 

001352 

000004 

000070 

000002 

000010 


001400 

010000 

001400 

000004 

000074 

000100 

000075 

000002 

000010 


REPORT ANT 'TOPI** ERROR AS 

. OPI DUE TO ’MOL" = 0 

. OPI BECAUSE ON CYLINDER LATCH DIDN'T RESET 
BIT #0PI.RMER1I ;HAS OPI SET?? 

BEQ 4$ ;N0! ! 

MOV RMER1 I, SGDDAT .-EXPECTED STATUS 


001140 

001140 

001142 

000000 


BIT 

#0PI.RMER1I 

BEQ 

4$ 

MOV 

RMER1 I, SGDDAT 

BIC 

#OPI .SGDDAT 

MOV 

RMER1I.SBDDAT 

ADD 

#4. (SP) 

MOVB 

#72, a(SP) 

BIT 

#MOL,RMDSI 

BEQ 

3$ 

MOVB 

#73. a(SP> 

3$: SUB 

#2, (SP) 

JSR 

pc.a(SP)+ 

SUB 

#10, (SP) 

NOP 


4$: 


.-REPORT AN ERROR IF "IAE" IS ! 

BIT 

#IAE,RMER1I 

BEQ 

5$ 

MOV 

RMER1 I, SGDDAT 

BIC 

#IAE, SGDDAT 

MOV 

RMERII.SBDDAT 

ADD 

#4 .(SP) 

MOVB 

#70,a(SP) 

SUB 

#2, (SP) 

JSR 

pc.a(sp)* 

SUB 

#10. (SP) 

NOP 



RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN USER'S CALL 
WAS ’MOL" = 0?? 

YES!! 

NO - CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


IS "IAE" SET?? 

NO!! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO ERROR CALL 
WRITE ERROR NUMBER IN USER'S CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR 

MOVE SP BACK TO NO ERROR RETURN 


050200 001400 


;SEE IF "SKI" OR "IVC" OR ’DVC" IS SET 
BIT #SKI ! IVC !DVC.RMER2I 

BEQ 9$ .-NONE OF THE BITS ARE SET 


010000 001400 


001140 

001140 

001142 

000000 

001350 

000000 


REPORT ANY "IVC" ERROR AS 
.IVC WITH VV = 0 
.ERRONEOUS IVC ERROR 
BIT #IVC,RMER2I 

BEQ 7$ 

MOV RMER2I .SGDDAT 

BIC #IVC.SGDDAT 

MOV RMER2I.SBDDAT 

ADD #4.(SP) 

M0V8 #74.a(SP> 

BIT #VV,RMDSI 

BEQ 6$ 

M0V8 #75,i(SP> 

>$: SUB #2,(SP> 

jsr pc.a<sp>+ 

SUB #10. (SP) 

NOP 


WAS IVC SET?? 

NO!! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
WAS VV = 0?? 

YES' ' 

NO -'CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 
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115 .-REPORT ANY •■SKI" ERROR 


SEO 0200 


116 047726 

117 047734 

118 047736 

119 047744 

120 047752 

121 047760 

122 047764 

123 047772 

124 047776 

125 050000 

126 050004 

127 050006 

128 

129 

130 050006 

131 050014 

132 050016 

133 050024 

134 050032 

135 050040 

136 050044 

137 050052 

138 050056 

139 050060 

140 050064 

141 050066 

142 

143 

144 050066 

145 050072 

146 050076 

147 050102 

148 050104 

149 050110 

150 

151 

152 

153 050110 

154 050116 

155 050120 

156 050126 

157 050130 

158 050136 

159 050144 

160 050152 

161 050156 

162 050164 

163 050170 

164 050172 

165 050176 

166 050200 

167 

168 

169 050200 

17 0 050206 

171 050210 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


013746 

042716 

022726 

001002 

000137 


032737 

001030 

032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001030 

032737 


040000 001400 


001400 

040000 

001400 

000004 

000076 

000002 

000010 


001 14C 
001140 
001142 

000000 


000200 001400 


001400 

000200 

001400 

000004 

000077 

000002 

000010 


001350 

047676 

110100 

050520 


001140 

001140 

001142 

000000 


001350 

010000 

001350 

000004 

000100 

000002 

000010 


#SKI,RMER2I 

8$ 

RMER2I .SGODAT 

#SKI,$GDDAT 

RHER2I,$BDDAT 

#4,(SP) 

#76,3(SP) 

02. (SP) 

P C.atSP)* 

#10, (SP) 


.REPORT ANY "DVC" ERROR 

BIT #DVC,RMER2I 

BEO 9$ 

MOV RMER2I.$GDDAT 

BIC #DVC,$GDDAT 

MOV RMER2I.S8DDAT 

ADD #4.(SP) 

M0V8 #77,a(SP> 

SUB 02. (SP) 

JSR PC.a<SPH 

SUB #10, (SP) 

NOP 


UAS SKI SET?? 

NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO BRANCH 


UAS "DVC" SET?? 

NO!! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO USER'S BRANCH 


010000 001350 
020000 001352 


;SEE IF "PIP" AND "OH" ARE 0, AND "ATA'VMOL" AND "VV" ARE 1 
MOV RMDSI.-(SP) ;PUT RMDS ON STACK 
BIC # A C<PIP!MOL!VV!OH!ATA>,(SP) 

CMP #ATA ! MOL ! V V , ( SP) ♦ 

BNE 10$ 

JMP 15$ 

10 $: 

.-REPORT AN ERROR IF MOL - 0 AND OPI = 0, I.E., MEDIUM WENT OFF 
;L1NE AFTER RECALIBRATE WAS INITIATED 


001140 

001140 

001142 

000000 


BIT 

BNE 

BIT 

BNE 

MOV 

BIS 

MOV 

ADD 

M0V8 

SUB 

JSR 

SUB 

NOP 


#MOL.RMDSI ;DID MOL DROP?? 

11$ ;N0! ! 

#0PI,RMER1I ;WAS OPI ERROR REPORTED?? 

11$ ;YES - DON'T REPORT M0L=0 

RMDSI.SGDDAT .'EXPECTED STATUS 

#MOL,$GDDAT 

RMDSI,$8DDAT .'RECEIVED STATUS 

#4 f (SP) .'MOVE SP TO USER’S ERROR CALL 


/ 0 * « 

noo.a(sp) 

02. (SP) 

pc.a < sp>* 
#10, (sp) 


WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO USER'S BRANCH 


000100 001350 
010000 001400 


.-REPORT AN ERROR IF "VV" = 0 AND "IVC" = 0 

BIT #VV,RMDSI .'DID "VV" DROP?? 

BNE 12$ ;N0!! 

BIT #IVC,RMER2I .'WAS THERE A IVC ERROR?? 
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SEQ 0201 


172 050216 

173 050220 

174 050226 

175 050234 

176 050242 

177 050246 

178 050254 

179 050260 

180 050262 

181 050266 

182 050270 

183 

184 

185 050270 

186 050276 

187 050300 

188 050306 

189 050314 

190 050322 

191 050326 

192 050334 

193 050340 

194 050342 

195 050346 

196 

197 050350 

198 

199 

200 

201 050350 

202 050356 

203 050360 

204 050366 

205 050374 

206 050402 

207 050406 

208 050414 

209 050420 

210 050422 

211 050426 

212 050430 

213 

214 

215 

216 050430 

217 050436 

218 050440 

219 050446 

220 050450 

221 050456 

222 050464 

223 050472 

224 050476 

225 050504 

226 050510 

227 050512 

228 050516 


001024 

013737 

013737 

052737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


001350 

001350 

000100 

000004 

000101 

000002 

000010 


001350 

100000 

001350 

000004 

000102 

000002 

000010 


001350 

000001 

001350 

000004 

000103 

000002 

000010 


001140 

001142 

001140 

000000 


100000 001350 


001140 

001140 

001142 

000000 


001350 

020000 

001350 

000004 

000104 

000002 

000010 


12 $ 

RNDSI.$GDDAT 
RNDSI ,$BDDAT 
#VV.$GDDAT 
#4.(SP) 
#lOl.a(SP) 
#2, (SP) 
pc.a(sp)* 
#10, (SP) 


;YES - DONT REPORT VV=0 
.•EXPECTED STATUS 
.‘RECEIVED STATUS 

.-HOVE SP TO USER'S ERROR CALL 
.-WRITE ERROR NUNBER IN CALL 
.‘MOVE SP TO RETURN FOR ERROR 

.‘MOVE SP BACK TO USER'S BRANCH 


; REPORT AN ERROR IF ATA IS NOT SET 


BIT #ATA, RNDSI 

BNE 13$ 

NOV RNDSI, $GDDAT 

BIS #ATA,$GDDAT 

NOV RNDSI,$8DDAT 

ADD #4. (SP) 

NOVB #l02,a(SP) 

SUB #2, (SP) 

JSR PC.a(SP)* 

SUB #10. (SP) 

NOP 


.-WAS ATA SET DURING RECALIBRATE?? 
‘YES' 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 

;NOVE SP TO USER'S ERROR CALL 

.-WRITE ERROR NUNBER IN CALL 


;NOVE SP TO USER'S BRANCH 


000001 001350 


001140 

001140 

001142 

000000 


.‘REPORT AN ERROR IF "ON" IS NOT 
.‘ALWAYS CLEAR OFFSET NODE 
BIT #0N.RNDS1 

BEQ 14$ 

NOV RNDSI ,$GDDAT 

BIC #ON,$GDDAT 

NOV RNDSI, $BDDAT 

ADD #4. (SP) 

NOVB #l03,a(SP) 

SUB #2,(SP) 

JSR PC.a(SP)* 

SUB #10. (SP) 


ZERO BECAUSE RECALIBRATE SHOULD 

.-WAS 'W RESET?? 

•YES' 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 

;NOVE SP TO USER'S ERROR CALL 

.‘WRITE ERROR NUNBER 

;NOVE SP TO RETURN FOR ERROR 

.-REPORT ERROR VIA USER 

;NOVE SP TO USER'S BRANCH 


; REPORT AN ERROR IF "PIP" IS STIL ON, I.E., DRIVE NOT ON 


020000 001350 
040000 001400 


001140 
001140 
001 i 42 

000000 


.•CYLINDER 

BIT 

BEQ 

BIT 

BNE 

NOV 

BIC 

NOV 

ADD 

NOVB 

SUB 

JSR 

SUB 

NOP 


#PIP. RNDSI 
15$ 

#SKI,RNER2I 

15$ 

RNDSI. $GDDAT 
#PIP, SGDDAT 
RNDSI. S8DDAT 
#4.(SP) ;HOVE 
#i64,a(SP) 

#2, (SP) 

pc.a(sp)+ 

#10. (SP) 


;IS DRIVE OFF CYLINDER?? 

‘NO 1 1 

;WAS’"SKI" DETECTED?? 

.-YES-DONT REPORT "PIP" 
.‘EXPECTED STATUS 

.•RECEIVED STATUS 
SP 70 USER'S ERROR CALL 
;WMTE ERROR NUNBER 
;NOVE SP TO RETURN FOR ERROR 

;NOVE SP BACK TO USER’S BRANCH 
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SEQ 0202 


229 050520 

230 

231 

232 050520 

233 050526 

234 

235 

236 050530 

23 7 050536 

238 050540 

239 050546 

240 050554 

241 050562 

242 050566 

243 050574 

244 050600 

245 050602 

246 050606 

247 050610 

248 


032737 

001514 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


040006 001352 


000002 001352 


i SEE IF **ILR" OR ‘WT OR ‘UNS" IS SET 
BIT #ILR!RMR!UNS.RMER1I 

BEQ 18S 


.•REPORT AN ERROR IF "ILR" IS SET 


001352 

000002 

001352 

000004 

000105 

000002 

000010 


001140 

001140 

001142 

000000 


BIT 

BEQ 

NOV 

BIC 

MOV 

ADD 

M0V8 

SUB 

JSR 

SUB 

NOP 


#lLR.RMER1I ;UAS ILR SET DURING RECALIBRATE?? 

16$ *N0" 

RMER1 1 .SGDDAT 'EXPECTED STATUS 
#ILR.SGDDAT 

RMER1I.SBDDAT .-RECEIVED STATUS 
#4,(SP) .’MOVE S P TO USER'S ERROR CALL 


m \ / 0 n 

#105,8(SP) 
#2, (SP) 

pc.a<sp>+ 
#io. (sp) 


.'WRITE ERROR NUMBER IN CALL 
.'MOVE SP TO RETURN FOR ERROR 

.'MOVE SP TO USER'S BRANCH 


.-REPORT AN ERROR IF * W IS SET 


250 050610 

032737 

000004 

001352 

BIT 

#RMR,RNER1I 

;WAS RMR SET?? 

251 050616 

001424 



BEQ 

17$ 

;N0!.' 

252 050620 

013737 

001352 

001140 

MOV 

RMER1 I. SGDDAT 

.'EXPECTED STATUS 

253 050626 

042737 

000004 

001140 

BIC 

#RMR, SGDDAT 
RMER1I .SBDDAT 
#4.(SP) 
#106.8(SP) 


254 050634 

013737 

001352 

001142 

MOV 

.-RECEIVED STATUS 

255 050642 

062716 

000004 


ADD 

.‘MOVE SP TO USER'S ERROR CALL 

256 050646 

112776 

000106 

000000 

MOVB 

.'WRITE ERROR NUMBER IN USER'S CALL 

257 050654 

162716 

000002 


SUB 

#2,(SP) 

.-MOVE SP TO RETURN FOR ERROR 

258 050660 

004736 



JSR 

PC.8(SP)+ 

#10, (SP) 

.-REPORT ERROR VIA USER 

259 050662 

162716 

000010 


SUB 

.'MOVE SP TO USER'S BRANCH 

260 050666 

261 050670 

000240 


17S: 

NOP 




262 

263 

264 050670 

265 050676 

266 050700 

267 050706 

268 050710 

269 050716 

270 050724 

271 050732 

272 050736 

273 050744 

274 050750 

275 050752 

276 050756 

277 050760 

278 

279 

280 050760 

281 050764 

282 050770 

283 050772 

284 050776 

285 051000 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


062716 

105776 

001403 

062716 

000402 

162716 


040000 001352 
00020C 001400 


.•REPORT AN ERROR IF ‘\JNS“ IS 


001352 

040000 

001352 

000004 

000107 

000002 

000010 


001140 

001140 

001142 

000000 


BIT #UNS,RMER1I 

BEQ 18S 

BIT #DVC.RMER2I 

BNE 18$ 

MOV RMER1 I, SGDDAT 

BIC #UNS. SGDDAT 

MOV RMER1I.S8DDAT 

ADD #4.(SP) 

MOVB #107.8(SP) 

SUB #2. (SP) 

JSR PC.8(SP)+ 

SUB #10. (SP) 

NOP 


SET AND "DVC" IS 0 
;UAS UNSAFE ON?? 

;N0! ! 

.-WAS THERE A DEVICE CHECK?? 
;YES - DON'T REPORT UNSAFE 
.-EXPECTED STATUS 

.-RECEIVED STATUS 

.-MOVE SP TO USER'S ERROR CALL 

.-WRITE ERROR NUMBER 

;MOVE SP TO RETURN FOR ERROR 

.-REPORT ERROR VIA USER 

.-MOVE SP BACK TO USER'S BRANCH 


.■AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 


000004 

ADD 

#4,(SP) 

;MOVE SP TO USER'S ERROR CALL 

000000 

TST8 

8(SP) 

;WAS AN ERROR REPORTED?? 


BEQ 

19S 

;N0!! 

000004 

ADD 

BR 

#4,(SP) 

20i 

;YES - AUGMENT SP RETURN 

000004 

19S: SUB 

#4,(SP) 

.-NO ERROR - RETURN SP TO BRANCH 


SEQ 0203 
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286 051004 000240 

287 051006 000207 


20S: NOP 

RTS PC 


I 16 


.-STATUS CECK IS COMPLETE 


CZRNEAO RM80 FCTNL PT 2 MACRO V04.00 28-JAN-82 16:38:23 PA6E 33 
DRIVE CLEAR STATUS CHECK SUBROUTINE 


SEQ 0204 


9 051010 
10 
11 

12 051010 

13 051014 

14 051020 

15 

16 051024 

17 051032 

18 051040 

19 051046 

20 051054 

21 051056 

22 051062 

23 051070 

24 051074 

25 051076 

26 051102 

27 

28 051104 

29 051112 

30 051120 

31 051126 

32 051134 

33 051136 

34 051142 

35 051150 

36 051154 

37 051156 

38 051162 

39 

40 051164 

41 051170 

42 051176 

43 051200 

44 051204 

45 051212 

46 051216 

47 051220 

48 051224 

49 

50 051226 

51 051234 

52 051236 

53 051240 

54 051244 

55 051250 

56 051254 

57 051256 


062716 

105C76 

162716 

013737 

042737 

012737 

023737 

001443 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

010146 

010246 

013701 

116102 

042702 

005102 

040237 


.SBTTL DRIVE CLEAR STATUS CHECK SUBROUTINE 


BR 

NOP 

ERROR 

JSR 


pc.acsp)* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
60 BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


DRVSTS: 


0000C4 

000000 

000004 

001336 

173700 

004010 

001140 

000004 

000141 

000002 

000010 


001350 

021101 

010600 

001140 

000004 

000142 

000002 

000010 


001140 

001352 

000004 

000143 

000002 

000010 


001142 

001142 

001140 

001142 


000000 


001142 

001142 

001140 

001142 


000000 


001142 


000000 


001354 001142 


001466 

000001 

177400 


;CLEAR USER'S 
ADD 
CLRB 
SUB 

; REPORT ERROR 
1$: MOV 

BIC 
MOV 
CMP 
BEO 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

:REPORT ERROR 
h: MOV 

BIC 
MOV 
CMP 
BEO 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

;REPORT ERROR 
3$: CLR 

MOV 
BEO 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

.REPORT ERROR 


ERROR CALL 

#4, (SP) .’MOVE SP TO ERROR CALL 

3(SP) .’CLEAR ERROR CALL 

#4, (SP) .’MOVE SP TO USER'S BRANCH 

IF RMCS1 NOT INITIALIZED 
RMCS11.SBDDAT :CHECK RMCS1 
#*C<DVA!FNCMSK>.S8DDAT .’CLEAR DONT CARES 
#DVA ! DRVCLR . S6DDAT .’EXPECT DVA 


S6DDAT.SBDDAT 

3$ 

#4, (SP) 
#i4i.a(sp) 

#2, (SP) 

pc.acsp)* 

#10. (SP) 


COMPARE EXPECTED 8 RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMDS NOT INITIALIZED 
RMDSI.SBDDAT .’CHECK RMDS 
#PGM!0H!VV!PIP,$8DDAT .’CLEAR DONT CARES 
#MOL ! DPR ! DRY .J6DDAT .’EXPECT DRY 8 DPR 


SGDDAT.SBDDAT 

3$ 

#4, (SP) 
#142.a(SP) 

#2. (SP) 

pc.a(sp>+ 

#10. (SP) 


COMPARE EXPECTED 8 RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMER1 NOT INITIALIZED 


SGDDAT 

RMER1I.SBDDAT 

48 

#4. (SP) 
#143.a(SP) 

M2 ASP) 
pc.a(SP)* 

#10. (SP) 


EXPECT O'S 
CHECK RMER1 
BRANCH IF EOUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF ATA NOT INITIALIZED 


001142 


RMASI.SBDDAT 

RI.-(SP) 

R2,-(SP) 

TSTQUE.R1 

1(R1).R2 

#*CATNHSK.R2 

R2 

R2.SBDDAT 


CHECK ATTENTION BIT 
.’PUSH R1 ON STACK 
.-PUSH R2 ON STACK 


K 16 


SEQ 0205 
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58 

051262 

012602 




MOV 

59 

051264 

012601 




MOV 

60 

051266 

00573/ 

001142 



TST 

61 

051272 

001413 




BEQ 

62 

051274 

062716 

000004 



ADD 

63 

051300 

112776 

000144 

000000 


M0V8 

64 

051306 

162716 

000002 



SUB 

65 

051312 

004736 




JSR 

66 

051314 

162716 

000010 



SUB 

67 

051320 

000240 




NOP 

68 





; RE PORT 

ERROR 

69 

051322 

013737 

001362 

001142 

$S: 

MOV 

70 

051330 

042737 

000046 

001142 


BIC 

71 

051336 

012737 

000010 

001140 


MOV 

72 

051344 

023737 

001140 

001142 


CMP 

73 

051352 

001413 




BEQ 

74 

051354 

062716 

000004 



ADD 

75 

051360 

112776 

000145 

000000 


movb 

76 

051366 

162716 

000002 



SUB 

77 

051372 

004736 




JSR 

78 

051374 

162716 

000010 



SUB 

79 

051400 

000240 




NOP 

80 





.•REPORT 

ERROR 

81 

051402 

013737 

001376 

001142 

6$: 

MOV 

82 

051410 

042737 

140000 

001142 


BIC 

83 

051416 

012737 

011777 

001140 


MOV 

84 

051424 

023737 

001140 

001142 


CMP 

85 

051432 

001413 




BEQ 

86 

051434 

062716 

000004 



ADD 

87 

051440 

112776 

000146 

000000 


MOVB 

88 

051446 

162716 

000002 



SUB 

89 

051452 

004736 




JSR 

90 

051454 

162716 

000010 



SUB 

91 

051460 

000240 




NOP 

92 

051462 

005037 

001140 


7$: 

CLR 

93 





.•REPORT 

ERROR 

94 

051466 

013737 

001404 

001142 


MOV 

95 

051474 

001413 




BEQ 

96 

051476 

062716 

000004 



ADD 

97 

051502 

112776 

000150 

000000 


MOVB 

98 

051510 

162716 

000002 



SUB 

99 

051514 

004736 




JSR 

100 

051516 

162716 

000010 



SUB 

101 

051522 

000240 




NOP 

102 





^REPORT 

ERROR 

103 

051524 

013737 

001400 

001142 

&S: 

MOV 

104 

051532 

001413 




BEQ 

105 

051534 

062716 

000004 



ADD 

106 

051540 

112776 

000147 

000000 


MOVB 

107 

051546 

162716 

000002 



SUB 

108 

051552 

004736 




JSR 

109 

051554 

162716 

000010 



SUB 

110 

051560 

000240 




NOP 

111 

110 

051562 




9$: 


1 \C 

113 

051562 




10$: 


114 








(SPH.R2 
(SP)*, R1 
S8DDAT 
5$ 

#4.(SP) 
#144,aCSP> 
02, (SP) 
pc.msp)* 

010, (SP) 


;POP STACK INTO R2 
;P0P STACK INTO R1 
IS ATTENTION CLEARED?? 

BRANCH IF ATTENTION CLEARED 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMMR1 NOT INITIALIZED 


RMMRII.SBDDAT 
#WC ! L S ! LST , SSDDAT 
#MWD.$GDDAT 
SGDDAT.SBDDAT 
6$ 

#4.<SP> 

#145,a(SP) 

#2,(SP) 
pc t a(sp)+ 

010, (SP) 


CHECK RMMR 

; CLEAR DONT CARES 
EXPECT WRITE DATA ON 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF ZERO 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMMR2 NOT INITIALIZED 


RMMR2I.S6DDAT 
#RQA!RQB,$BDDAT 
#TS T • 1 777 , SGDDAT 
$GDDAT,$6DDAT 

7$ 

#4,(SP) 

#146,a(SP) 

02, (SP) 

PC.i(SP)* 

#10, (SP) 

SGDDAT 

IF RMEC2 NOT RESET 
RMEC2I.SBDDAT 
8$ 

#4.<SP) 

#150,a(SP) 

02, (SP) 

pc.a<sp>* 

010, (SP) 

IF RMER2 NOT RESET 
RMER2I,$BDDAT 
9$ 

#4,(SP) 

0H7,9(SP) 

02, (SP) 

pc.b(sp)* 

010, (SP) 


CHECK RMMR2 
CLEAR REQA, REQB 

.•EXPECT TEST BIT ON 
COMPARE EXPECTED 8 RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 

EXPECT ZEROS 

CHECK RMEC2 

BRANCH IF 0 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 


CHECK RMER2 
BRANCH IF NO ERROR 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 
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l 16 


SEQ 0206 


115 




.'AUGMENT RETURN ADDRESS 

IF ANY ERROR WAS FOUND 

116 

051562 

062716 

000004 

ADD 

#4, (SP) 

.-MOVE SP TO ERROR CALL 

117 

051566 

105776 

000000 

TSTB 

B(SP) 

;«AS AN ERROR DETECTED?? 

118 

051572 

001403 


BEQ 

11$ 

;N0! ! 

119 

051574 

062716 

000004 

ADD 

#4.(SP) 

12§ 

#4, (SP) 

;YES - MOVE SP TO ERROR RETURN 

120 

121 

051600 

051602 

000402 

162716 

000004 

11$: SUB 

;MOVE SP BACK TO NO ERROR RETURN 

122 

123 

051606 

051610 

000240 

000207 


12$: NOP 

RTS 

PC 

.'RETURN TO USER 
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6 1 


SEQ 0207 


1 

2 

3 

4 

5 
b 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


31 

32 

33 

34 


38 

39 

40 

41 


45 


50 

51 

52 

53 

54 

55 

56 

57 


.SBTTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 
THE ERROR NUMBER IN THE USERS ERROR CALL. 


USER'S SUBROUTINE CALL: 


( 1 ) 


JSR 


PC.DTASTS 






; (2) 

BR 

?? 





;(3) 

NOP 






; (4) 

ERROR 






; (5) 

JSR 

pc.acspj* 





; (6) 

• • 


051612 




DTASTS: 







.CLEAR USER'S 

ERROR CALL AND EF 

051612 

062716 

000004 



ADD 

#4. (SP) 

051616 

105076 

000000 



CLRB 

acsp) 

051622 

162716 

000004 



SUB 

#4, (SP) 

051626 

005037 

055226 



CLR 

49$ 





.•REPORT 

ANY CONTROL BUS PARITY 





; I . E . , 

MC PE = 

1 

051632 

032737 

020000 

001336 


BIT 

#MCPE,RMCS1I 

051640 

001422 




BEQ 

1$ 

051642 

013737 

001336 

001140 


MOV 

RMCS1I.SGDDAT 

051650 

042737 

020000 

001140 


BIC 

#MCPE.$GDDAT 

051656 

013737 

001336 

001142 


MOV 

RMCSII.tBDDAT 

051664 

062716 

000004 



ADD 

#4.(SP> 

051670 

112776 

000013 

000000 


MOVB 

#13.a<SP) 

051676 

162716 

000002 



SUB 

#2, (SP) 

051702 

004736 




JSR 

pc.acsp)* 

051704 

000466 




BR 

4$ 

051706 




1$: 







.•REPORT ANY CONTROL BUS PARITY 





;I.E.« 

PAR = 

1 AND DPE = 0 

051706 

032737 

000010 

001352 


BIT 

fPAR.RMERII 

051714 

001435 




BEQ 

3$ 

051716 

032737 

000010 

001400 


BIT 

#DPE,RHER2I 

051724 

001031 




BNE 

3$ 

051726 

013737 

001352 

001140 


MOV 

RMER1I.$GDDAT 

051734 

042737 

000010 

001140 


BIC 

#PAR.$GDDAT 

051742 

013737 

001352 

001142 


MOV 

RMERlI.SBDDAT 

051750 

062716 

000004 



ADD 

#4.<SP5 

051754 

112776 

000050 

000000 


MOVB 

#50.a(SP) 

051762 

032737 

001000 

001346 


BIT 

#MXF,RMCS2I 

051770 

001003 




BNE 

2$ 

051772 

112776 

000274 

000000 


MOVB 

#274. a (SP) 

052000 

162716 

000002 


2$: 

SUB 

#2, (SP) 

052004 

004736 




JSR 

pc,a(sp)+ 

052006 

000425 




BR 

4$ 


RETURN HERE IF NO DATA ERRORS 
RETURN HERE TO REPORT AN ERROR 
SUB WRITES ERROR NUMBER 
USER RETURNS FOR MORE CHECKS 
SUB RETURNS HERE AFTER ALL 
ERRORS ARE REPORTED 


MOVE SP TO USER'S ERROR 
CLEAR LOW ORDER BYTE OF TRAP 
RESTORE SP TO NO ERROR 
CLEAR ERROR FLAGS 


ERROR WHILE READING REMOTE REGISTERS. 


WAS THERE A PARITY ERROR?? 
NO! • 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 


ERROR WHILE WRITTING REMOTE REGISTERS. 


;WAS THERE A PARITY ERROR?? 
;N0! ! 

;DATA PARITY ERROR ? 

•YES' ' 

•EXPECTED STATUS 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER 
DID MXF GET SET?? 

YES!! 

NO ~ CHANGE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 


.-LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 



SEQ 0208 
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58 

59 

60 
61 

62 C52010 

63 052010 

64 052016 
63 052020 

66 052026 

67 052034 

68 052042 

69 052046 

70 052054 

71 052060 

72 052062 

73 

74 

75 052062 

76 052066 

77 

78 052072 

79 

80 
81 
82 

83 052072 

84 052100 

85 052102 

86 052110 

87 052116 

88 052124 

89 052132 

90 052134 

91 052142 

92 052144 

93 052150 

94 052156 

95 052162 

96 052164 

97 052170 

98 052172 


102 052172 

103 052176 

104 052204 

105 052210 

106 052212 

107 052216 

108 052220 

109 

110 

111 052220 

112 052226 

113 

114 052230 


032737 

001425 

013737 

042737 

013737 

062716 

112776 

162716 

004736 


162716 

000137 


001000 001346 


001346 

001000 

001346 

000004 

000275 

000002 


000010 

055200 


032737 

001447 

013737 

042737 

013737 

032737 

001404 

032737 

001013 

062716 

112776 

162716 

004736 

162716 

000413 


062716 
112776 
162716 
004736 
162716 
00024 C 


052717 

001432 


001140 

001140 

001142 

000000 


020000 001352 


001352 

020000 

001352 

010000 


000004 

000276 

000002 

000010 


000004 

000277 

000002 

000010 


.'MECHANICAL POSITIONING 

.•FIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 
;CODE AND GO BIT WERE LOADED 


#MXF,RMCS2I 

5$ 

RMCS2I.SGDDAT 

fMXF.SGDDAT 

RMCS2I.SBDDAT 

#4.(SP) 

#275.8(SP) 

#2,(SP) 

pc.a(sp>+ 


WAS 'MISSED TRANSFER" SET?? 
NO!! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER’S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 


.-RESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING 
SUB #10. (SP) ;M0VE SP TO NO ERROR 

JMP 46$ .-SKIP TO END OF SUB 


REPORT AN ERROR IF *t)PI" ERROR 
AND *MOL" ARE SET. BUT "VV * IS 
‘MOL" 


OCCURRED DUE TO 'MOL" = 0. OR IF *t)PI" 
RESET. INDICATING AN INTERMITTENT 


001 140 
001140 
0U11 42 
001350 


000100 001350 


000000 


BIT 

#OPI .RMER1I 

; IS *t)PI" SET?? 

BEQ 

8$ 

;N0! ! 

MOV 

RMER1I.SGDDAT 

;EXPECTED STATUS 

BIC 

#OPI ,$GDDAT 


MOV 

RMER1I.SBDDAT 

.•RECEIVED STATUS 

BIT 

#MOL.RMDSI 

;WAS MEDIUM OFF LINE?? 

BEQ 

6$ 

; VES ! I 

BIT 

#VV,RMDSI 

;WAS 'MOL" INTERMITTENT?? 

BNE 

7$ 

;N0! ! 

ADD 

#4, (SP) 

.'MOVE SP TO USER'S ERROR CALL 

H0V8 

#276,a(SP) 

.'WRITE ERROR NUMBER IN CALL 

sue 

#2,(SP) 

.-MOVE SP TO RETURN IF ERROR 

JSR 

pc.a(sp)+ 

.•REPORT ERROR AND RETURN 

SUB 

#10, (SP) 

.'RESTORE SP TO NO ERROR 

BR 

8$ 



000000 


010000 001400 


013737 001400 001140 


.•REPORT X)PI" ERROR, WHICH IS DUE TO 't )N CYLINDER" NOT DROPPING OR 
;'KUN" TIMEOUT (20 MS) OR SEARCH TIMEOUT (50 MS) 

ADD #4 .(SP) .-MOVE SP TO USER’S ERROR CALL 

M0V8 #277, a(SP) .'WRITE ERROR NUMBER IN CALL 

SUB #2. (SP) .'MOVE SP TO RETURN IF ERROR 

JSR PC.a(SP)* .'REPORT ERROR AND RETURN 

SUB #10, (SP) .‘RESTORE SP TO NO ERROR 


.‘LOOK FOR "IVC" ERROR DURING COMMAND INITIATION 

BIT #IVC.RMER2I ;WAS THERE AN "IVC" ERROR?? 

BEQ 10$ ;N0! ! 

.•REPORT "IVC" ERROR DUE TO "VV" = 0, OR REPORT ERRONEOUS "IVC" ERROR 
MOV RMER2I.$GDDAT .'EXPECTED STATUS 
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D 1 


SEQ 0209 


115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 


052236 

052244 

052252 

052256 

052264 

052272 

052274 

052302 

052306 

052310 

052314 


052314 

052322 

052324 

052332 

052334 

052342 

052350 

052356 

052362 

052370 

052374 

052376 

052402 

052404 


052404 

052412 

052414 

052422 

052430 

052436 

052442 

052450 

052454 

052456 

052462 

052464 


052464 

052472 

052474 

052502 

052510 

052516 

052522 

052530 

052534 

052536 

052542 

052544 


042737 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 


032737 

001510 

032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


010000 

001400 

000004 

000300 

000100 

000301 

000002 

000010 


001140 

001142 

000000 

001350 

OOOOOO 


000007 001352 


000002 001352 


001352 

000002 

001352 

000004 

000302 

000002 

000010 


001140 

001140 

001142 

OOOOOO 


000001 001352 


001352 

000001 

001352 

000004 

000303 

000002 

000010 


001140 

001140 

001142 

OOOOOO 


001352 

000004 

001352 

000004 

000304 

000002 

000010 


9$: 

10 $: 


BIC #1VC.$GDDAT 

NOV RMER2I,$8DDAT 

ADD #4 t (SP) 

M07B #300, 8 (SP) 

BIT #VV,RMDSI 

BEQ 9$ 

MOVB #301, a (SP) 

SUB #2,(SP) 

jsr pc,a(sp>* 

SUB #l6,(SP> 


;SEE IF “ILF" OR 'KMR” IS SET 
BIT #ILR! ILF !RNR, 

BEO 13$ 

.•REPORT AN ERROR IF “ILR“ IS SET 
BIT #ILR,RMER1I 

BEO 11$ 

MOV RMER1I.SGDDAT 

BIC #ILR.$GDDAT 

MOV RMER1I.$BDDAT 

ADD #4.(SP) 

MOVB #302.a(SP> 

SUB #2,(SP) 

JSR PC,a<SP>* 

SUB #10. (SP) 

NOP 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER IN CALL 
WAS VOLUME VALID?? 

NO! ! 

CHANGE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT “IVC" ERROR AND RETURN 
RESTORE SP TO NO ERROR 


RMER1I 

NO ERRORS DETECTED 


WAS “ILR“ DETECTED?? 

NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


11 $: 


.•REPORT AN ERROR IF “ILF" IS SET 


12 $: 


BIT #ILF,RHER1I 

BEQ 12$ 

MOV RMER1I,$GDDAT 

BIC #ILF.$GDDAT 

MOV RMER1I.SBDDAT 

ADD #4-(SP) 

MOVB #303,a(SP) 

SUB #2,<SP) 

JSR PC.a(SP)+ 

SUB #10, (SP) 

NOP 


.-WAS “ILF" DETECTED?? 

;N0! ! 

.•EXPECTED STATUS 

.‘RECEIVED STATUS 
.’MOVE SP TO USER'S ERROR CALL 
; WRITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN IF ERROR 
.•REPORT ERORR AND RETURN 
; RESTORE SP TO NO ERROR 


000004 001352 


.•REPORT AN ERROR IF “RMR" IS SET 


001140 

001140 

001142 

OOOOOO 


BIT #RMR,RMER1I 

BEQ 13$ 

NOV RMERII.SGDDAT 

BIC #RMR.$GDDAT 

MOV RMER1I.$BDDAT 

ADD #4 .(SP) 

MOVB #364,a(SP) 

SUB #2,(SP) 

JSR PC.a(SP)* 

SUB #l6,(SP) 

NOP 


.-WAS 'KMR“ DETECTED?? 

•NO' ‘ 

•EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE SP TO USER'S ERROR CALL 
.-WRITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN IF ERROR 
.-REPORT ERROR AND RETURN 
.•RESTORE SP TO NO ERROR 


13 $: 

.DETERMINE WHETHER OR NOT 


’IAE" SHOULD 8E SET AND CHECK FOR ERROR 
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SEO 0210 


172 052544 

173 052552 

174 052560 

175 052566 

176 052570 

177 

178 052576 

179 052604 

180 

181 052606 

182 052614 

183 052616 

184 05^624 

185 052626 

186 052634 

187 052636 

188 052644 

189 052646 

190 052654 

191 052656 

192 

193 052662 

194 052670 

195 052676 

196 052704 

197 052706 

198 052714 

199 052716 

200 052722 

201 052730 

202 052734 

203 052736 

204 052742 

205 

206 

207 052742 

208 052750 

209 052756 

210 05276* 

211 052772 

212 053000 

213 053002 

214 053010 

215 053012 

216 053016 

217 053024 

218 053030 

219 053032 

220 053036 

221 

222 053040 

223 

224 

225 053040 

226 053046 

227 053050 

228 053054 


012737 

052737 

023727 

101035 

042737 

123737 

101026 

123727 

101420 

032737 

001416 

123727 

101410 

032737 

001406 

123727 

101002 

005037 

013737 

042737 

023737 

001004 

042737 

000412 

062716 

112776 

162716 

0G4736 

162716 


013737 

042737 

013737 

042737 

032737 

001417 

032737 

001032 

062716 

112776 

162716 

004736 

162716 

000417 


032737 

001413 

062716 

112776 


002000 

040000 

001446 


0011 40 
055226 
001060 


040000 055226 
001421 001335 

001420 000035 
010000 001444 
001420 000036 
001000 001444 
001420 000037 


001140 

001352 

175777 

001140 


001142 

001142 

001142 


040000 055226 


000004 

000305 

000002 

000010 


001400 

137777 

055226 

137777 

040000 


000000 


001142 

001142 

001140 

001140 

001400 


040000 055226 


000004 

000306 

000002 

000010 


000000 


MOV #IAE,$GDDAT 

SIS #SKI ,49$ 

CMP RMDC0,#560. 

BHI 15$ 

BJC #SKI ,49$ 

CMP8 RMDAO+1 .LSTRK+1 
BHI 15$ 

CMPB RMDA0.#29. 

BLOS 14$ 

BIT #FMT16,RM0F0 

BEQ 15$ 

CMPB RMDAO,#30. 

BLOS 14$ 

BIT #SSEI,RMOFO 

BEQ 15$ 

CMPB RMDAO.#31 . 

B HI 15$ 

CLR SGDDAT 

MOV RMER1I ,$BCDAT 

SIC #*CIAE,$BDDAT 

CMP SGDDAT, SBDDAT 

BNE 16$ 

BIC #SKI,49$ 

BR 17$ 

ADD #4,<SP) 

MOVB #305, a (SP) 

SUB #2,(SP) 

jsr pc.a<sp>* 

SUB #10. (SP) 


.•REPORT AN ERROR IF "SKI" IS SET 
NOV RMER2I.SBDDAT 

81 C #‘CSKI, SBDDAT 

NOV 49$,$6DDAT 

BIC #*CSKI. SGDDAT 

BIT #SKI .RMER2I 

BEQ 18$ 

BIT #SKI, 49$ 

BNE 19$ 

ADD #4- (SP) 

MOVB #306,a(SP) 

SUB #2, (SP) 

JSR PC.atSP)* 

SUB #10, (SP) 

BR 19$ 


SETUP FOR "IAE" = 1 
SETUP FOR ••SKI'* * 1 
GREATER THAN LAST CYLINDER ? 

YES - CYLINDER IS INVALID 
RESET SKI FLAG 

GREATER THAN LAST TRACK ? 

YES - TRACK IS INVALID 

IS SECTOR > 29. ? 

NO 

18 BIT FORMAT ? 

YES • SECTOR IS INVALID FOR 18 BIT MODE 
IS SECTOR > 30. ? 

NO 

IS SSEI CLEAR 7 

YES - SECTOR IS INVALID FOR 16 BIT MODE 
IS SECTOR > 31. ? 

YES - SECTOR IS INVALID 
••IAE** SHOULD = 0 

GET RECEIVED STATUS 

IS "IAE" STATUS OK?? 

NO!! 

IAE OK - SKI SHOULD BE 0 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


AND "IAE" STATUS WAS OK 
RECEIVED STATUS 

EXPECTED STATUS 

WAS "SKI" SET?? 

NO!! 

WAS SKI CAUSED BY IAE = 0?? 
YES - DON'T REPORT SKI 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


040000 055226 
000004 

000307 000000 


.•REPORT AN ERROR IF SKI = 0 AND IAE WAS NOT DETECTED 


#SKI,49$ 

19 $ 

#4.<SP) 

#307,a(SP> 


SHOULD SKI BE SET?? 

NO!! 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 


j 
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F 1 


SCO Cc 1 


229 053062 

230 053066 

231 053070 

232 05307* 

233 053076 

234 

235 

236 053076 

237 053104 

238 

239 

240 053106 

241 053114 

242 053116 

243 053124 

244 053132 

245 053140 

246 053144 

247 053152 

248 053156 

249 053160 

250 053164 

251 053166 

252 

253 

254 053166 

255 053174 

256 053176 

257 053204 

258 053206 

259 053214 

260 053222 

261 053230 

262 053234 

263 053242 

264 053246 

265 053250 

266 053254 

267 053256 
26S 

269 

270 053256 
~ 053264 

053266 
053274 

274 053302 

275 053310 

276 053314 

277 053322 

278 053324 

279 053330 

280 053332 

281 
282 

283 053332 

284 053340 

285 


271 

2l\ 


162716 

004736 

162716 

000240 


032737 

001512 


032737 

001424 

013737 

04Z737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001422 

013737 

042737 

013737 

062716 

112776 

004736 

162716 

000240 


032737 

001527 


000002 


SUB 

#2, (SP) 

.-MOVE SP TO RETURN IF ERROR 



JSR 

pc.a(sp>* 

.•REPORT ERROR AND RETURN 

000010 


SUB 

#10. (SP) 

.RESTORE SP TO NO ERROR 



NOP 





19$: 





.•LOOK FOR 'ISC” 

OR *1BC” OR *DVC” IN ERROR REGISTER #2 

006200 

001400 

BIT 

#LSC ! LBC ! DVC .RMER2I 



BEQ 

22$ 

;N0 ERRORS SET 



.-REPORT ANY DEVICE FAULT. I.E.. 

"DVC” = 1 

000200 

001400 

BIT 

#DVC,RMER2I 

; I S "DVC" = 1?? 



BEQ 

20$ 

;N0! i 

001400 

001140 

MOV 

RMER2I ,$GDDAT 

.•EXPECTED STATUS 

000200 

001140 

BIC 

#DVC,$GDDAT 


001400 

001142 

MOV 

RMER2I.$BDDAT 

.•RECEIVED STATUS 

000004 


ADD 

#4.(SP) 

.•MOVE SP TO USERS ERROR 

000310 

000000 

MOVB 

#310.i(SP> 

; WRITE ERROR NUMBER IN CALL 

000002 


SUB 

#2, (SP) 

.-MOVE SP TO RETURN IF ERROR 



JSR 

pc.a<sp>+ 

.•REPORT ERROR AND RETURN 

000010 


SUB 

#10. (SP) 

.•RESTORE SP TO NO ERROR 



NOP 





20$: 





; REPORT LOSS OF 

BIT CLOCK. I.E. 

; "LBC” « 1. IF *MOL” = 1 

002000 

001400 

BIT 

#LBC.RMER2l 

; I S LBC SET?? 



BEQ 

21$ 

;N0! ! 

010000 

001350 

BIT 

#MOL.RMDSI 

.-WAS LBC ERROR BY MOL = 0 



BEQ 

21$ 

;VES!« 

001400 

001140 

MOV 

RMER2I.$GDDAT 

.•EXPECTED STATUS 

002000 

001140 

BIC 

#L8C.$GDDAT 


001400 

001142 

MOV 

RMER2I.$BDDAT 

.•RECEIVED STATUS 

000004 


ADD 

#4. (SP) 

,-MOVE SP TO USER'S ERROR CALL 

000311 

000000 

MOVB 

#3ii,a(SP) 

.•WRITE ERROR NUMBER IN CALL 

000002 


SUB 

02. (SP) 

.-MOVE SP TO RETURN IF ERROR 



JSR 

pc.a(sp)+ 

.•REPORT ERROR AND RETURN 

000010 


SUB 

#i6,(sp) 

.•RESTORE SP TO NO ERROR 



NOP 





21$: 





.•REPORT LOS OF 

SYSTEM CLOCK, I. 

E.. •tSC" = 1 

004000 

001400 

BIT 

#LSC.RMER2I 

; IS 'ISC” = 1?? 



BEQ 

22$ 

;N0! ! 

001400 

001140 

MOV 

RMER2I ,$GDDAT 

.•EXPECTED STATUS 

004000 

001140 

BIC 

#LSC.$GDDAT 


001400 

001142 

MOV 

RMER2I.$8DDAT 

.•RECEIVED STATUS 

000004 


ADD 

#4.(SP) 

.•MOVE SP TO USER'S ERROR CALL 

000312 

000000 

MOVB 

#3l2,a<SP) 

.•WRITE ERROR NUMBER 



JSR 

PC.a<SP)+ 

.•REPORT ERROR AND RETURN 

000010 


SUB 

#10, (SP) 

.•RESTORE SP TO NO ERROR 



NOP 




054000 001352 


22 $: 

.-LOOK FOR *HNS” OR “DTE" OR '\fLE” IN ERROR REGISTER #1 
BIT #UNS!DTE!WLE,RMER1I 

BEQ 27$ ;N0 BITS SET 

.•REPORT 'HNS” ERROR IF ”DVC” = 0 
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SEQ 0212 


286 053342 

287 053350 

288 053352 

289 053360 

290 0533-62 

291 053370 

292 053376 

293 053404 

294 053410 

295 053416 

296 053422 

297 053424 

298 053430 

299 

300 

301 053430 

302 053436 

303 053440 

304 053446 

305 053454 

306 053462 

307 053466 

308 053474 

309 053500 

310 053502 

311 053506 

312 

313 

314 

315 053506 

316 053514 

317 053516 

318 053524 

319 053532 

320 053540 

321 053544 

322 053552 

323 053560 

324 053562 

325 053570 

326 053572 

327 053600 

328 053606 

329 053612 

330 053614 

331 

332 053620 

333 

334 

335 053620 

336 053624 

337 053630 

338 053632 

339 053636 

340 053642 

341 

342 


032737 

001427 

032737 

001023 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


032737 

001441 

013737 

013737 

052737 

062716 

112776 

032737 

001404 

032737 

001406 

112776 

042737 

162716 

004736 

162716 


062716 

105776 

001404 

162716 

000137 

162716 


040000 001352 
000200 001400 


001352 

040000 

001352 

000004 

000313 

000002 

000010 


001140 

001140 

001142 

000000 


010000 001352 


001352 

010000 

001352 

000004 

000314 

000002 

000010 


001140 

001140 

001142 

000000 


004000 001352 


001352 

001352 

004000 

000004 

000315 

004000 


000316 

004000 

000002 

000010 


000004 

000000 

000004 

054640 

000004 


BIT #UNS,RMER1I 

BEQ 23$ 

BIT #DVC,RMER2I 

BNE 23$ 

NOV RNER1I,$GDDAT 

BIC #UNS.$GDDAT 

NOV RMER1I.S8DDAT 

ADO #4.(.SP) 

NOVB #313.i(SP) 

SUB #2. (SP) 

jsr pc.a(sp)* 

SUB #10, (SP) 

23$: 

.•REPORT ANY DRIVE TIMING ERROR, 
01 T #DTE,RNER1I 

BEQ 24$ 

MOV RNER1I ,$GDDAT 

BIC #DTE,$GDDAT 

MOV RMER1I,$BDDAT 

ADD #4,(5?) 

M0V8 #3i4,8(SP) 

SUB #2,(SP) 

JSR PC.a<SP>+ 

SUB #l6,(SP> 


IS ’UNS" SET?? 

NO'. 1 

WAS ’UNS" CAUSED BY , T>VC"?? 
YES' 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

RESTORE SP TO NO ERROR 


I.E., ’•DTE" = 1 
; IS DTE SET?? 

;N0! ! 

.•EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE SP TO USER'S ERROR CALL 
.•WRITE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN IF ERROR 
.‘REPORT ERROR AND RETURN 
.-MOVE SP TO NO ERROR 


; REPORT AN ERROR IF WRITE LOCK ERROR IS SET. SEE IF DRIVE IS NOT 


001142 

001140 

001140 

000000 

001350 


000010 001412 


000000 

001140 



BIT 

#WLE,RMER1I 

WAS *ULE" SET?? 


BEQ 

27$ 

NO!! 


MOV 

RMER1I,$BDDAT 

RECEIVED STATUS 


MOV 

BIS 

RMER1I,$GDDAT 

#WLE,$GDDAT 

EXPECTED STATUS 


ADD 

#4 .(SP) 

MOVE SP TO USERS ERROR CALL 


H0V8 

#315.a(SP) 

WRITE ERROR NUMBER IN CALL 


BIT 

fWRL.RMDSI 

WAS DRIVE WRITE PROTECTED?? 


BEQ 

25$ 

NO!! 


BIT 

#8IT3.RNCS10 

WAS COMMAND A WRITE?? 


BEQ 

26$ 

YES!! 

25$: 

M0V8 

BIC 

#316,a(SP) 

#WLE,$GDDAT 

CHANGE ERROR NUMBER 

26$: 

SUB 

#2,(SP) 

MOVE SP TO RETURN IF ERROR 

JSR 

PC.a(SP)+ 

REPORT ERROR AND RETURN 

27$: 

SUB 

#10. (SP) 

MOVE SP TO NO ERROR 


.-OMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED 


#4, (SP) 
a(SP) 
28$ 

#4, (SP) 
42§ 

#4,(SP) 


MOVE SP TO USER'S ERROR 
WAS ERROR DETECTED?? 

NO - DO DATA CHECKS 
RESTORE SP 
SKIP DATA CHECKS 
RESTORE SP 


.•CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA. AND 


j 


SEQ 0213 
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H 1 


343 

344 053646 

345 053654 

346 053662 

347 053670 

348 053672 

349 053700 

350 

351 

352 053702 

353 053710 

354 

355 

356 053712 

357 053720 

358 053722 
35v 053730 

360 053736 

361 053744 

362 053750 

363 053756 

364 053762 

365 053764 

366 053766 

367 

368 

369 053766 

370 053774 

371 053776 

372 054004 

373 054012 

374 054020 

375 054024 

376 054032 

377 054036 

378 054040 

379 054042 

380 

381 

382 054042 

383 054050 

384 054052 

385 054060 

386 054066 

387 054074 

388 054100 

389 054106 

390 054112 

391 054114 

392 

393 

394 

395 054116 

396 054124 

397 054126 

398 054134 

399 054142 


013737 

042737 

022737 

001512 

032737 

001106 


032737 

001533 


032737 

001422 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

000501 


032737 

001422 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

000453 


032737 

001453 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

000425 


001412 

177700 

000063 


001352 

000400 

001352 

000004 

000317 

000002 


055230 

055230 

055230 


002000 001370 


000620 001352 


000400 001352 


001140 

001140 

001142 

000000 


000020 001352 


001352 

000020 

001352 

000004 

000320 

000002 


001140 

001140 

001142 

000000 


000200 001352 


001352 

000200 

001352 

000004 

000321 

000002 


032737 C00620 
001425 

013737 001352 
042737 000620 
013737 001352 


;IF HEADER COMPARE IS NOT INHIBITED 


MOV RMCS10,50$ 

BIC #*CFNCMSK,50$ 
CMP #WH!G0.50$ 

BEQ 31$ 

BIT #HCI .RHOFI 

BNE 31 S 


;SEE IF ANY HEADER ERRORS ARE SET, I 
BIT #HCRC!FER!HCE,RMER1I 
BEQ 33$ ;N0 ERRORS SET 

.•REPORT HEADER CRC ERROR IF SET 


.•STRIP AND STORE FUNCTION CODE 

;UAS FUNCTION WRITE HEADER » DATA?? 
;YES - SKIP HEADER CHECKS 
•WAS HCI SFT‘»’ 

•YES - SKIP HEADER CHECKS 

I.E., "FER" OR , XCRC" OR , XCE*' 


29$: 


BIT #HCRC,RMER1I 

BEQ 29$ 

MOV RMER1I,$GDDAT 

BIC #HCRC,$GDDAT 

MOV RMER1I,$BDDAT 

ADD #4.(SP) 

MOVB #317,8(SP> 

SUB M2 ASP) 

jsr pc.a <sp)+ 

BR 32$ 


; REPORT FORMAT ERROR IF SET 
BIT #FER,RMER1I 

BEQ 30$ 

MOV RMER1I.$GDDAT 

BIC #FER.$GDDAT 

MOV RMER1I,$BDDAT 

ADD #4.(SP) 

MOVB #32 O.a (SP) 

SUB M2 ASP) 

JSR PC.a<SP>* 

BR 32$ 

30$: 


;WAS HCRC SET?? 

•NO 1 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE SP TO USERS ERROR 
.-WRITE ERROR NUMBER 
.’MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 


WAS , TER M SET?? 

NO' * 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USERS ERROR 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 


.-REPORT HEADER COMPARE ERROR IF SET 


001140 

001140 

001142 

000000 


.-WAS •*CE W SET?? 
;N0! ! 

.•EXPECTED STATUS 


001352 5l$: 

001140 

001140 

001142 


BIT fHCE.RMERII 

BEQ 33$ 

MOV RMER1I,$GDDAT 

BIC #HCE.$GDDAT 

MOV RMER1I.$BDDAT 

ADD M4ASP) 

M0V8 #321, a (SP) 

SUB M2 ASP) 

jsr pc.a <sp)+ 

BR 32$ 

THERE SHOULD BE NO HEADER ERRORS BECAUSE 
.COMMAND WAS WRITE HEADER AND DATA, 

.HEADER COMPARE INHIBIT WAS SET 
BIT #HCE ! FER ! HCRC .RMER1 I 

BEQ 33$ ;N0 ERRORS WERE SET 

MOV RMER1I ,$GDDAT -EXPECTED STATUS 

BIC #HCE! FER! HCRC, SGDDAT 

MOV RMER1I ,$BDDAT .-RECEIVED STATUS 


.•RECEIVED STATUS 
.MOVE SP TO USER’S ERROR 
.•WRITE ERROR NUMBER 
.‘MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 


OR 
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400 054150 

062716 

000004 



ADD 

#4.(SP) 

MOVE SP TO USER'S ERROR CALL 

401 054154 

112776 

000322 

000000 


MOVB 

#322,a(SP) 

WRITE ERROR NUMBER 

402 054162 

162716 

000002 



SUB 

02. (SP) 

MOVE SP TO RETURN IF ERROR 

403 054166 

004736 




JSR 

pc.a<sp>* 

REPORT ERROR AND RETURN 

404 054170 

162716 

000010 


32$: 

SUB 

#i6,(sp> 

MOVE SP TO NO ERROR 

405 054174 

i fU. 

000137 

054640 



JMP 

42$ 

OMIT FURTHER DATA CHECKS 

407 054200 

/AO 




33$: 




••UO 

409 




; IF COMMAND WAS 

A WRITE COMMAND. 

GO DO WRITE ERROR CHECKS. OTHERWISE 

410 




;D0 READ ERROR 

CHECKS 


411 054200 

032737 

000010 

055230 


BIT 

#BIT3.50$ 

WAS THIS A WRITE COMMAND? 

412 054206 

001002 




BNE 

34$ 

•NO!! 

413 054210 

000137 

054426 



JMP 

39$ 

•GO DO WRITE STATUS CHECK 

414 054214 




34$: 




*# 1 J 

416 




; REPORT 

DATA CHECK IF SET 


417 054214 

032737 

100000 

001352 


BIT 

#DCK.RMER1I 

DATA CHECK ERROR?? 

418 054222 

001450 




BEQ 

37$ 

NO!! 

419 054224 

013737 

001352 

001140 


MOV 

RMER11.$GDDAT 

EXPECTED STATUS 

420 054232 

042737 

100000 

001140 


B1C 

#DCK,$GDDAT 


421 054240 

013737 

001352 

001142 


MOV 

RMER1I.$8DDAT 

RECEIVED STATUS 

422 054246 

062716 

000004 



ADD 

#4. (SP) 

MOVE SP TO USER'S ERROR 

423 054252 

112776 

000323 

000000 


MOVB 

#323.a(SP) 

WRITE ERROR NUMBER 

424 054260 

032737 

004000 

001370 


BIT 

#ECI.RHOFI 

WAS ECC CORRECTION DISABLED?? 

425 054266 

001021 




BNE 

36$ 

YES!! 

426 054270 

112776 

000324 

000000 


MOVB 

#324.a(SP) 

CHANGE TO RECOVERABLE ERROR 

427 054276 

032737 

000100 

001352 


BIT 

#ECH.RMER1I 

IS ERROR RECOVERABLE?? 

428 054304 

001007 




BNE 

35$ 

NO !! 

429 




;D0 NOT 

REPORT 

RECOVERABLE ERROR 

IF READ COMMAND 

430 054306 

032737 

000020 

055230 


BIT 

#8IT4,50$ ;WAS THIS A READ COMMAND ?? 

431 054314 

001406 




BEQ 

36$ ;N0 ! ! 

432 054316 

162716 

000004 



SUB 

#4, (SP) .’RESTORE SP 

433 054322 

000410 




BR 

37$ .-SKIP ERROR - DATA WILL BE CORRECTED 

434 054324 

112776 

000325 

000000 

35$: 

MOVB 

#325.3(SP) 

CHANGE TO NON RECOVERABLE 

435 054332 

162716 

000002 


36$: 

SUB 

02. (SP) .-MOVE SP TO RETURN IF ERROR 

436 054336 

004736 




JSR 

PC.a(SP)* .’REPORT ERROR AND RETURN 

437 054340 

A 38 

162716 

000010 



SUB 

010. (SP) ; RESTORE SP TO NO ERROR 

439 054344 




37$: 




*4H\J 

441 




.-REPORT 

DATA BUS PARITY ERROR IF 

SET. I.E.. MDPE = 1 

442 054344 

032737 

000400 

001346 


BIT 

#MDPE,RMCS2I 

PARITY ERROR SET?? 

443 054352 

001423 




BEQ 

38 $ 

NO!! 

444 054354 

013737 

001346 

001140 


MOV 

RMCS2I.SGDDAT 

EXPECTED STATUS 

445 054362 

042737 

000400 

001140 


BIC 

#MDPE,$GDDAT 


446 054370 

0T3737 

001346 

001142 


MOV 

RMCS2I f $8DDAT 

RECEIVED STATUS 

447 054376 

062716 

000004 



ADD 

#4.(SP) 

MOVE SP TO USER'S ERROR 

448 054402 

112776 

000326 

000000 


MOVB 

#326. a (SP) 

WRITE ERROR NUMBER 

449 054410 

162716 

000002 



SUB 

02. (SP) 

MOVE SP TO RETURN IF ERROR 

450 054414 

004736 




JSR 

pc.a(SP)* 

REPORT ERROR AND RETURN 

451 054416 

162716 

000010 



SUB 

#10. (SP) 

MOVE SP TO NO ERROR 

452 054422 

000137 

054640 


38$: 

JMP 

42$ 

SKIP WRITE STATUS CHECK 


453 

454 054426 39$: 

455 

456 .-TEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR IF "OM" = 1 


SEG 0 


SEO 021 5 
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457 054426 

458 054434 

459 054436 

460 054444 

461 054452 

462 054460 

463 054464 

464 054472 

465 054476 

466 054500 

467 054504 

468 

469 

470 054504 

471 054512 

472 054514 

473 054522 

474 054530 

475 054536 

476 054542 

477 054550 

478 054554 

479 054556 

480 054562 

481 

482 

483 054562 

484 054570 

485 054572 

486 054600 

48 7 054606 

488 054614 

489 054620 

490 054626 

491 054632 

492 054634 

493 054640 

494 

495 

496 054640 

497 054646 

498 054650 

499 054656 

500 054664 

501 054672 

502 054676 

503 054704 

504 054710 

505 054712 

506 054716 

507 

508 054716 

509 054722 

510 054726 

511 054732 

512 

513 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


032737 
001423 
01 3737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


013746 

042716 

022726 

001522 


000001 001350 


001350 

000001 

001350 

000004 

000327 

000002 

000010 


001140 

001140 

001142 

000000 


000010 001400 


001400 

000010 

001400 

000004 

000330 

000002 

000010 


001140 

001140 

001142 

000000 


000040 001352 


001352 

000040 

001352 

000004 

000331 

000002 

000010 


001346 

100000 

001346 

000004 

000332 

000002 

000010 


001350 

147677 

010100 


BIT 

#OM,RMDSI 

;IS OFFSET ON?? 

BEQ 

40$ 

;N0 

NOV 

RMDSI ,$GDDAT 

.•EXPECTED STATUS 

BIC 

#OM,$GDDAT 


NOV 

RMDSI, SBDDAT 

.-RECEIVED STATUS 

ADD 

#4,(SP) 

;MOVE SP TO USER’S ERROR CALL 

NOVB 

#327,a(SP> 

.WRITE ERROR NUMBER IN CALL 

SUB 

#2, (SP) 

.-MOVE SP TO RETURN IF ERROR 

JSR 

pc.a(SP)* 

.-REPORT ERROR AND RETURN 

SUB 

#10, (SP) 

.-MOVE SP TO NO ERROR 


001140 

001140 

001142 

000000 


;TEST FOR DATA BUS PARITY ERROR; 
BIT #DPE,RMER2I 

BE 6 41$ 

MOV RMER2I.SGDDAT 

BIC #DPE.$GDDAT 

MOV RHER2I,$BDDAT 

ADD #4.(SP) 

NOVB #330,8(SP) 

SUB #2,(SP) 

JSR PC,a(SP)+ 

SUB #10, (SP) 

41$: 

;TEST FOR WRITE CLOCK FAILURE; F 
BIT #WCF,RMER1I 

BEQ 42$ 

MOV RNER1I ,$GDDAT 

BIC #WCF,$GDDAT 

NOV RMERII.SBDDAT 

ADD #4.(SP) 

NOVB #331.a(SP) 

SUB #2,(SP) 

JSR PC.a<SP)+ 

SUB #10, (SP) 


REPORT ERROR IF ‘DPE*’ = 1 
DATA PARITY ERROR?? 

NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 

NOVE SP TO USER’S ERROR CALL 

WRITE ERROR NUNBER 

NOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

NOVE SP TO NO ERROR 


REPORT ERROR IF , VICF" = 1 
; IS ’VCF” SET?? 

*N0' 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 

.-NOVE SP TO USERS ERROR CALL 

.•WRITE ERROR NUMBER 

;NOVE SP TO RETURN IF ERROR 

.•REPORT ERROR AND RETURN 

.■MOVE SP TO NO ERROR 


100000 001346 


.•REPORT ‘DATA LATE** ERROR IF 'DLT“ = 1 


001140 

001140 

001142 

000000 


BIT #DLT,RMCS2I 

BEQ 43$ 

NOV RNCS2I,$GDDAT 

BIC #DLT.$6DDAT 

NOV RMCS2l.$BDDAT 

ADD #4.(SP) 

NOVB #332, a (SP) 

SUB #2»(SP) 

JSR PC.8(SP)+ 

SUB #10, (SP) 


IS ‘DLT“ SET?? 

NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 

NOVE SP TO USERS ERROR CALL 

WRITE ERROR NUNBER 

NOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

NOVE SP TO NO ERROR 


.-LOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS 

NOV RNDSI.-(SP) .-STACK DRIVE STATUS 

BIC #*C<PIP!NOL!VV>,(SP) .-CLEAR DONT CARES 
CMP #NOL!VV,(SP)+ ;IS DRIVE STATUS OK?? 

BEQ 46$ ;YES! ! 

.REPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 


K 1 


SEQ 0216 
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514 




; I . E , PIP = 1 

AND SKI = 0 

515 054734 

032737 

020000 

001350 


BIT 

#PIP, RMDSI 

516 054742 

001430 




BEQ 

44$ 

517 054744 

032737 

040000 

001400 


BIT 

#SKI .RMER2I 

518 054752 

001024 




BNE 

44$ 

519 054754 

013737 

001350 

001140 


MOV 

RMDSI. $GDDAT 

520 054762 

042737 

020000 

001140 


BIC 

#PIP.$GDDAT 

521 054770 

013737 

001350 

001142 


MOV 

RMDSI. $BDDAT 

522 054776 

062716 

000004 



ADD 

#4 .(SP) 

523 055002 

112776 

000333 

000000 


MOVB 

#333.8(SP) 

524 055010 

162716 

000002 



SUB 

#2, (SP) 

525 055014 

004736 




JSR 

pc.acsp)* 

526 055016 

162716 

000010 



SUB 

#10, (SP) 

527 055022 

000240 




NOP 


528 055024 

COO 




44$: 



jct 

530 




; REPORT 

ERROR 

IF MEDIUM IS N( 

531 




.•REPORTED. I. 

E.. MOL = OPI = 

532 055024 

032737 

010000 

001350 


BIT 

#MOL. RMDSI 

533 055032 

001027 




BNE 

45$ 

534 055034 

032737 

020000 

001352 


BIT 

#0PI.RMER1I 

535 055042 

001023 




BNE 

45$ 

536 055044 

013737 

001350 

001140 


MOV 

RMDSI, $GDDAT 

537 055052 

052737 

010000 

001140 


BIS 

#M0L,$GDDAT 

538 055060 

013737 

001350 

001142 


MOV 

RMDSI, $BDDAT 

539 055066 

062716 

000004 



ADD 

#4, (SP) 

540 055072 

112776 

000334 

000000 


MOVB 

#334,B(SP) 

541 055100 

162716 

000002 



SUB 

#2, (SP) 

542 055104 

004736 




JSR 

PC.B(SP)* 

543 055106 

162716 

000010 



SUB 

#10. (SP) 

544 055112 




45$: 



545 







546 




.•REPORT 

ERROR 

IF VOLUME IS Nl 

547 




.•REPORTED. I. 

E.. VV = IVC = i 

548 055112 

032737 

000100 

001350 


BIT 

#VV. RMDSI 

549 055120 

001027 




BNE 

46$ 

550 055122 

032737 

010000 

001400 


BIT 

#IVC,RMER2I 

551 055130 

001033 




BNE 

47$ 

552 055132 

013737 

001350 

001140 


MOV 

RMDSI. $GDDAT 

553 055140 

052737 

000100 

001140 


BIS 

#VV,$GDDAT 

554 055146 

013737 

001350 

001142 


MOV 

RMDSI .SBDDAT 

555 055154 

062716 

000004 



ADD 

#4. (SP) 

556 055160 

112776 

000335 

000000 


MOVB 

#3$5,a(SP) 

557 055166 

162716 

000002 



SUB 

#2. (SP) 

558 055172 

004736 




JSR 

pc.a(sp)* 

559 055174 

162716 

000010 



SUB 

#10, (SP) 

560 055200 




46$: 



561 







562 




.•AUGMENT THE 

RETURN ADDRESS 

563 055200 

062716 

000004 



ADD 

#4, (SP) 

564 055204 

105776 

000000 



TST8 

a(sp) 

565 055210 

001403 




BEQ 

47$ 

566 055212 

062716 

000004 



ADD 

#4.(SP) 

567 055216 

000402 




BR 

48* 

568 055220 

162716 

000004 


47$: 

SUB 

#4, (SP) 

569 

570 055224 

000207 



48$: 

RTS 

PC 


IS ’PIP" SET?? 

NO! ! 

WAS "SKI" ERROR REPORTED?? 
YES-DONT REPORT PIP 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE S P TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 


ON LINE AND OPI ERROR WAS NOT 

;IS MEDIUM ON LINE?? 

• YES' 1 

; WAS OPI ERROR REPORTED?? 
•YES' 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE SP TO USER'S ERROR 
.•WRITE ERROR NUMBER 
.-MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 


VALID AND "IVC" ERROR WAS NOT 

;IS VOLUME VALID?? 

•YES' 1 

•WAS'lVC ERROR REPORTED?? 
•YES' 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 

.-MOVE SP TO USERS ERROR CALL 

; WRITE ERROR NUMBER 

.-MOVE SP TO RETURN IF ERROR 

.•REPORT ERROR AND RETURN 

.‘MOVE SP TO NO ERROR 


ANY ERROR WAS FOUND 
.-MOVE SP TO ERROR CALL 
.-ANY ERROR?? 

;N0! ! 

; YES - MOVE SP TO ERROR RETURN 
.•MOVE SP TO NO ERROR RETURN 
.•RETURN TO USER 


SEQ 0217 
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.•ERROR FLAGS 
.-TEMPORARY STORAGE 


-••O'OOO'vjO if' ‘O >000 -T'U>jr\j — *0'00. sJO l-f' U>jr\j >O'000-NjO'-nx v 0Jf\j— *0>000 'JC7"-n^'^wrvj 
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STATIC DRIVE STATUS CHECK SUBROUTINE 


ft 1 


SEQ 0218 


1 .S8TTL STATIC DRIVE STATUS CHECK SUBROUTINE 

THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
CAN BE USED BV HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 
SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 

THE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS 
IF TRUE: 

.MOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE 
THAT MOL IS ASSUMED TO HAVE BEEN SET 

.VV = 0, INDICATES THE DRIVE LOST VOLUME VALID 
.PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER 
.SKI = 1, INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
.DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT 


THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 






; (1) JSR 

PC, STCDRVSTS 






; BR 

• • • 

RETURN HERE IF NO ERROR 





; NOP 


RETURN HERE TO REPORT AN ERROR 





; ERROR 


ERROR NUMBER DEFINED BY SUB 





; JSR 

pc.acsp)* 

GO BACK TO SUB FOR MORE ERROR CHECKS 





0 • • • 


RETURN HERE IF NO MORE ERRORS 

055232 




STCDRVSTS: 







.•CLEAR USER'S 

ERROR CALL 


055232 

062716 

000004 


ADD 

#4,<SP> .‘MOVE 

SP TO USER'S ERROR CALL 

055236 

105076 

000000 


CLRB 

a (SP) 

; CLEAR ERROR NUMBER 

055242 

162716 

000004 


SUB 

#4,(SP) 

.•MOVE SP BACK TO NO ERROR RETURN 


1 



.‘SEE IF ’MOL" 

= 'VV" = 1, AND 

•VIP” = 0 

055246 

013746 

001350 

\ 

MOV 

RMDSI.-(SP) 

;PUT DRIVE STATUS ON STACK 

055252 

042716 

147677 


BIC 

#*C<PIP!MOL!VV>.(SP) 

055256 

022726 

010100 


CMP 

#MOLJVV,(SP)+ 

.‘ARE MOL.VV AND PIP O.K.?? 

055262 

001524 



BEO 

3$ 

; YES! ! 





.REPORT AN ERROR IF MOL = 0 AND ‘TOPI" = 0 

055264 

032737 

010000 

001350 

BIT 

4M0L.RMDSI 

;IS MOL ON ?? 

055272 

001030 



BNE 

1$ 

;YES!! 

055274 

032737 

020000 

001352 

BIT 

fOPI.RMERII 

;WAS "DPI" SET?? 

055302 

001024 



3NE 

IS 

,-YES-DONT REPORT 'MOL" = 0 

055304 

013737 

001350 

001140 

MOV 

RMDSI.SGDDAT 

.•EXPECTED STATUS 

055312 

052737 

010000 

001140 

BIS 

MOL.SGDDAT 


055320 

013737 

001350 

001142 

MOV 

RMDSI.SBDDAT 

.•RECEIVED S7A . 

055326 

062716 

000004 


ADD 

#4.<SP) 

.‘MOVE SP TO UScR'* ERROR CALL 

055332 

112776 

000207 

000000 

MOVB 

#267,a(SP) 

.‘WRITE ERROR NUfoiiR IN CALL 

055340 

162716 

000002 


SUB 

#2,(SP) 

.‘MOVE SP TO RETURN FOR ERROR 

055344 

004736 



JSR 

pc.a<sp>+ 

; REPORT ERROR VIA USER 

055346 

162716 

000010 


SUB 

#10, (SP) 

.•MOVE SP BACK TO NO ERROR RETURN 

055352 

000240 



NOP 



055354 




1$: 







.‘REPORT AN ERROR IF VOLUME VALID IS NOW ZERO AND "1 VC" = 0 

055354 

032737 

000100 

001350 

BIT 

#VV,RMDSI 

;IS 'VV" = 0?? 

055362 

001030 



BNE 

2$ 

;NO! ! 
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N 1 


SEG 0219 


58 055364 

59 055372 

60 055374 

61 055402 

62 055410 

63 055416 

64 055422 

65 055430 

66 055434 

67 055436 

68 055442 

69 055444 

70 

71 

72 055444 

73 055452 

74 055454 

75 055462 

76 055464 

77 055472 

78 055500 

79 055506 

80 055512 

81 055520 

82 055524 

83 055526 

84 055532 

85 055534 

ft 

38 055534 

39 055540 
055544 
055546 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162H6 

000240 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


013746 

042726 

001460 


010000 

001400 

31 T 

BNE 

#1VC.RMER2I 

2$ 

001350 

001140 

MOV 

RMDSI .SGDDAT 

000100 

001350 

BIS 

fVV.RMDSI 

001350 

001142 

MOV 

RMDSI .SBDDAT 

000004 

ADD 

#4-(SP) 

#2 10,a(SP) 

000210 

000000 

MOVB 

000002 

SUB 

JSR 

#2.(SP) 

pc.a(sp>+ 

000010 


SUB 

NOP 

#10. (SP) 



020000 001350 

040000 001400 

001350 001140 
020000 001140 
001350 001142 
000004 

000211 000000 
000002 - 

000010 


001400 

137577 


000200 001400 


2 $: 

.•REPORT AN ERROR IF DRIVE IS OFF 
BIT #PIP. RMDSI 

BEO 3$ 

BIT #SKI.RMER2I 

BNE 3$ 

MOV RMDSI, SGDDAT 

BIC #pip.Jgddat 

MOV RMDSI, SBDDAT 

ADD #4. (SP) 

MOVB #211,a(SP> 

SUB #2,(SP) 

jsr pc.acsp)* 

SUB #10. (SP) 

NOP 


UAS “IVC" SET” 

YES-DONT REPORT ’W" = 0 
EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


CYLINDER AND ••SKI" = 0 
IS DRIVE OFF CYLINDER?? 

NO! ! 

WAS "SKI" SET?? 

YES-DONT REPORT ’PIP" = 1 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN USER'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 


3S: 

;SEE IF "SKI" s *DVC" * 
MOV 
BIC 
BEG 
4$: 


RMER2I.-CSP) .-PUT ERROR REG 2 ON STACK 
#*C<SKI!DVC>.(SP)+ 

6$ .-BRANCH IF NO ERROR 


001140 

001140 

001142 

000000 


001400 

QQ1140 

001140 

001142 

000000 


.-REPORT AN ERROR IF THERE IS A 
BIT #DVC.RMER2I 

BEG 5$ 

MOV RMER2I .SGDDAT 

BIC #DVC.SGDDAT 

mov rmer2i,$bddat 

ADD #4 ASP) 

M0VB #212.a<SP) 

SUB #2,<SP) 

JSR PC.a(SP)* 

SUB #l6.(SP) 

NOP 

5$: 

.-REPORT AN ERROR IF "SKI" = 1 
BIT #SKI. RMER2I 

BEG 6$ 

MOV RMER2I, SGDDAT 

BIC fSKl.SGDCAT 

MOV RMER2I .SBDDAT 

ADD #4 4 (SP) 

M0V8 #2l3.a<SP) 


DEVICE FAULT 
.-ANY DEVICE FAULT?? 

-NO' ' 

•EXPECTED STATUS 

.-RECEIVED STATUS 
.-MOVE SP TO USER'S CALL 
.-WRITE NUMBER OF ERROR IN CALL 
;MOVE SP TO RETURN FOR ERROR 
.-REPORT ERROR VIA USER 
.-MOVE SP BACK TO NO ERROR 


;IS THERE A SEEK INCOMPLETE ERROR 
*N0' 1 

•EXPECTED STATUS 

.-RECEIVED STATUS 

.-MOVE SP TO USER'S ERRGtf CALL 

.-WRITE ERROR NUMBER IN USER T S ERROR CALL 


B 2 


SEQ 0220 


L2RNEA0 RM80 FCTNL PT2 MACRO V04.00 28- JAN-82 16:38:23 PAGE 35-2 
STATIC DRIVE STATUS CHECK SUBROUTINE 


115 055672 

116 055676 

117 055700 

118 055704 

119 055706 

120 
121 

122 055706 

123 055712 

124 055716 

125 055720 

126 055724 

127 055726 

128 055732 

129 055734 


162716 000002 
004736 

162716 000010 
000240 


062716 000004 
105776 000000 
001403 

062716 000004 
000402 

162716 000004 

000240 

000207 


SUB #2,(SP) 

jSR PC.a(SP)+ 

SUB #10, (SP) 

NOP 


MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


; AUGMENT THE RETURN ADDRESS 
ADD #4, (SP) 

TSTB i(SP) 

BEQ 7$ 

ADD #4, (SP) 

BR 8$ 

7$: SUB #4, (SP) 

8$: NOP 

RTS PC 


IF ANY ERROR WAS DETECTED 

.-MOVE SP TO USER'S ERROR CALL 
;WAS AN ERROR DETECTED?? 

;N0! ! 

; YES - MOVE SP TO USER'S ERROR RETURN 
;N0 - MOVE SP TO NO ERROR RETURN 
.•RETURN TO USER 



C 2 


SEQ 0221 
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1 


055736 

055736 

05574C 

055742 

055744 

055746 

055750 

055752 

055756 

055762 

055766 

055772 


055774 

055774 

056000 

056004 

056010 

056014 

056016 

056020 

056022 

056024 

056026 

056030 


.SBTTL SAVE AND RESTORE R0-R5 


•SAVE 

•CALL 


R0-R5 



•UPON RETURN 

• TOP (+16) 

• * 2 — (+18) 

• +4 — R5 

• +6 R4 

• +8 — R3 

•♦10 R2 

•♦1? R1 

*♦14 — RO 

FROM SSAVREG T» 

SSAVREG: 

RO,-(SP) 

010046 

MOV 

010146 

MOV 

RI.-(SP) 

010246 

MOV 

R2,-(SP) 

010346 

MOV 

R3.-ISP) 

010446 

MOV 

R4,-(SP) 

010546 

MOV 

R5,-(SP) 

016646 000022 

MOV 

22<SP),-(SP) 

016646 000022 

MOV 

22CSP) ,-(SP) 

016646 000022 

MOV 

22(SP),-(SP) 

016646 000022 

MOV 

22(SP),-(SP) 

000002 

RTI 



012666 

000022 

; ‘RESTORE R0-R5 
.-•CALL: 

;* RESREG 

SRESREG: 

MOV 

<SP)+,22(SP) 

012666 

000022 

MOV 

(SP)+,22(SP) 

012666 

000022 

MOV 

(SPH, 22 (SP) 

012666 

000022 

MOV 

<SP>+, 22CSP) 

012605 

MOV 

(SP)+,R5 

012604 


MOV 

<SP)+,R4 

012603 


NOV 

<SP)+,R3 

012602 


MOV 

CSP)+,R2 

012601 


MOV 

(SPJ+.R1 

012600 


MOV 

(SP)+, RO 

000002 


RTI 



ROUTINES 


STACK WILL LOOK LIKE: 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVE PS OF MAIN FLOW 
SAVE PC OF MAIN FLOW 
SAVE PS OF CALL 
SAVE PC OF CALL 


RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
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SEO 0222 


.SBTTL BINARY TO ASCII AND TYPE ROUTINE 


•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
•BINARY-ASCII NUMBER AND TYPE IT. 

•CALL: 

• MOV NUMBER. -(SP) ; .'NUMBER TO BE TYPED 

• TYP8N .'.'TYPE IT 


NUMBER. -(SP) 


056032 

010146 



STYPBN: MOV 

R1,-(SP) 

056034 

016601 

000006 


MOV 

6(SP).R1 

056040 

000261 



SEC 

A’O.SBIN 

056042 

112737 

000060 

056104 

IS: MOVB 

056050 

006101 



ROL 

R1 

056052 

001406 



BEO 

2S 

056054 

105537 

056104 


ADCB 

S6IN 

056060 

104401 

056104 


TYPE 

.S8IN 

056064 

000241 



CLC 

IS 

056066 

000765 



BR 

056070 

012601 



2$: MOV 

(SP) +.R1 

056072 

016666 

000002 

000004 

MOV 

2(SP) ,4(SP) 

056100 

012616 



MOV 

(SP)+.(SP) 

056102 

000002 



RTI 

0.0 

056104 

000 

000 


S6IN: .BYTE 


SAVE R1 ON THE STACK 
GET THE INPUT NUMBER 

SET "C" SO CAN KEEP TRACK OF THE NUMBER OF BITS 
SET CHARACTER TO AN ASCII 'XT. 

GET THIS BIT 
DONE? 

NO— SET THE CHARACTER EQUAL TO THIS BIT 
GO TYPE THIS BIT 

CLEAR "C" SO CAN KEEP TRACK OF BITS 
GO DO THE NEXT BIT 
POP THE STACK INTO R1 
ADJUST THE STACK 

RETURN TO USER 

STORAGE FOR ASCII CHAR. AND TERMINATOR 


SEQ 0223 
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•S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


056106 

056106 

056110 

056112 

056114 

056116 

056120 

056124 

056130 

056132 

056134 

056142 

056144 

056150 

056154 

056156 

056162 

056164 

056166 

056170 

056172 

056174 

056176 

056200 

056202 

056204 

056206 

056210 

056216 

056222 

056226 

056230 

056232 

056236 

056240 

056242 

056244 

056246 

056250 

056252 

056260 

056262 

056264 

056266 

056270 


010046 

010146 

010246 

010346 

010546 

012746 

016605 

100004 

005405 

112766 

005000 

012703 

112723 

005002 

016001 

160105 

002402 

005202 

000774 

060105 

005702 

001002 

105716 

100407 

106316 

103003 

116663 

052702 

052702 

110223 

005720 

020027 

002746 

003002 

010502 

000764 

105726 

100003 

116663 

105013 

012605 

012603 

012602 

012601 


♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
♦SIGHED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
♦NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 




.•♦REPLACED WITH 

SPACES. 




.•♦CALL: 






;* 

MOV 

NUM.-(SP) 

;;PUT THE BINARY NUMBER ON THE STACK 



;* 

TYPDS 


; ; GO TO THE ROUTINE 



STYPDS: 







MOV 

P,0. -(SP) 

;;PUSH RO ON STACK 




MOV 

RI.-(SP) 

; ; PUSH R1 ON STACK 




MOV 

R2.-(SP) 

.-.PUSH R2 ON STACK 




MOV 

R3.-(SP) 

;;PUSH R3 ON STACK 




MOV 

R5.-(SP) 

;;PUSH R5 ON STACK 

020200 



MOV 

#26200. -(SP) 

;;SET BLANK SWITCH AND SIGN 

000020 



MOV 

20(SP).R5 

.’.‘GET THE INPUT NUMBER 




BPL 

1$ 

;;BR IF INPUT IS POS. 




NEG 

R5 

.-.‘MAKE THE BINARY NUMBER POS. 

000055 

C00001 


M0V8 

#’-,1 (SP) 

.‘.‘MAKE THE ASCII NUMBER NEG. 



IS: 

CLR 

RO 

.‘.‘ZERO THE CONSTANTS INDEX 

056322 



MOV 

#$DBLK,R3 

;; SETUP THE OUTPUT POINTER 

000040 



movb 

#’ , (R3)* 

;;SET THE FIRST CHARACTER TO A BLANK 



2$: 

CLR 

R2 

;; CLEAR THE BCD NUMBER 

056312 



MOV 

SDTBL(RO) ,R1 

;;GET THE CONSTANT 



3$: 

SUB 

R1.R5 

.-.‘FORM THIS BCD DIGIT 




BLT 

4$ 

;;BR IF DONE 




INC 

R2 

.‘.•INCREASE THE BCD DIGIT BY 1 




BR 

3$ 




4$: 

ADD 

R1.R5 

.‘.‘ADD BACK THE CONSTANT 




TST 

R 2 

;; CHECK IF BCD DIGIT=0 




BNE 

5$ 

;;FALL THROUGH IF 0 




TSTB 

(SP) 

.‘.‘STILL DOING LEADING O’S? 




BM1 

7$ 

;;BR IF YES 



5$: 

ASLB 

(SP) 

; ;MSD? 




BCC 

6$ 

;;BR IF NO 

000001 

177777 


MOVB 

1(SP).-1(R3) 

;; YES— SET THE SIGN 

000060 


6$: 

BIS 

#*o.r2 

.-.-MAKE THE BCD DIGIT ASCII 

000040 


7$: 

BIS 

#• ,R2 

.‘.‘MAKE IT A SPACE IF NOT ALREADY A DIGIT 




MOVB 

R2.(R3)* 

;;PU T THIS CHARACTER IN THE OUTPUT BUFFER 




TST 

(r6)+ 

;;JUST INCREMENTING 

000010 



CMP 

R0.#10 

.-.•CHECK THE TABLE INDEX 




BLT 

2$ 

;;G0 DO THE NEXT DIGIT 




BGT 

8$ 

;;G0 TO EXIT 




MOV 

R5. R2 

;;GET THE LSD 




BR 

6$ 

;;G0 CHANGE TO ASCII 



8$: 

TSTB 

(SP) + 

;;UAS THE LSD THE FIRST NON-ZERO? 




BPL 

9$ 

;;BR IF NO 

177777 

177776 


MOVB 

-1 (SP) ,-2(R3) 

;; YES— SET THE SIGN FOR TYPING 



9$: 

CLRB 

(R3) 

;;5ET THE TERMINATOR 




MOV 

(SP)*. R5 

;;POP STACK INTO R5 




MOV 

(SP)*,R3 

;;P0 P STACK INTO R3 




MOV 

(SP)*,R2 

;;POP STACK INTO R2 




MOV 

(SP)*,R1 

;;POP STACK INTO R1 
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SEQ 0224 


F 2 


056272 

012600 



MOV 

(SP) ♦.RO 

;;POP STACK INTO RO 

056274 

104401 

056322 


TYPE 

.SDBLK 

2<SP).4(SP> 

;;NOW TYPE THE NUMBER 

056300 

016666 

000002 000C04 


MOV 

; .-ADJUST THE STACK 

056306 

012616 



MOV 

(SP)*. (SP) 


056310 

IH 



RTI 


;; RE TURN TO USER 

056312 

023420 


SDTBL: 

10000. 



056314 

001750 



1000. 



056316 

000144 



100. 



056320 

000012 



10= 



056322 



SDBLK : 

.SIKU 

4 
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SEO 022 5 


.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 


•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 


MOV 

TYPOS 

.BYTE 

.BYTE 


NUM.-(SP) 


NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M=1 OR 0 

;;1=TYPE LEADING ZEROS 
; ;0=SUPPRESS LEADING ZEROS 


•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL: 

• MOV NUH.-(SP) ; .-NUMBER TO BE TYPED 

• TYPON ; ; CALL FOR TYPEOUT 

• 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 






;* MOV 

NUM.-(SP) 

; NUMBER TO BE TYPED 





;* TYPOC 


.‘CALL FOR TYPEOUT 

056332 

017646 

000000 


STYPOS: MOV 

8(SP).-(SP) 

.‘PICKUP THE MODE 

056336 

116637 

000001 

056555 

MOVB 

1(SP). SOFILL 

.‘LOAD ZERO FILL SWITCH 

056344 

112637 

056557 


movb 

(SP) ♦.SOHODE+1 ; 

.‘NUMBER OF DIGITS TO TYPE 

056350 

062716 

000002 


ADD 

#2. (SP) 

.ADJUST RETURN ADDRESS 

056354 

0C0406 



BR 

STYPON 


056356 

112737 

000001 

056555 

STYPOC: MOVB 

#1 .SOFILL 

.‘SET THE ZERO FILL SWITCH 

056364 

112737 

000006 

056557 

MOVB 

#6.S0M0DE+1 

.-SET FOR SIX(6) DIGITS 

056372 

112737 

000005 

056554 

STYPON: MOVB 

#5.$0CNT 

.‘SET THE ITERATION COUNT 

056400 

010346 



MOV 

R3,-(SP) 

.’SAVE R3 

056402 

010446 



MOV 

R4. -(SP) 

.‘SAVE R4 

056404 

010546 



MOV 

R5.-CSP) 

.‘SAVE R5 

056406 

113704 

056557 


MOVB 

SOTODE+1 ,R4 

.‘GET THE NUMBER OF DIGITS TO TYPE 

056412 

005404 



NEG 

R4 


056414 

062704 

000006 


ADD 

#6.R4 

.'SUBTRACT IT FOR MAX. ALLOWED 

056420 

110437 

056556 


MOVB 

R4.S0M0DE 

.-SAVE IT FOR USE 

056424 

113704 

056555 


MOVB 

S0FILL.R4 

.‘GET THE ZERO FILL SWITCH 

056430 

016605 

000012 


MOV 

12(SP),R5 

.‘PICKUP THE INPUT NUMBER 

056434 

005003 



CLR 

R3 

.‘CLEAR THE OUTPUT WORD 

056436 

006105 



IS: ROL 

R5 

.•ROTATE MSB INTO "C" 

056440 

000404 



BR 

3S 

;G0 DO MSB 

056442 

006105 



2S: ROL 

R5 

.‘FORM THIS DIGIT 

056444 

006105 



ROL 

R5 


056446 

006105 



ROL 

R5 


056450 

010503 



MOV 

R5.R3 


056452 

006103 



3S: ROL 

R3 

.GET LSB OF THIS DIGIT 

056454 

105337 

056556 


DECS 

SOMODE 

.•TYPE THIS DIGIT? 

056460 

100016 



8PL 

7S 

;BR IF NO 

056462 

042703 

177770 


BIC 

H77770.R3 

.‘GET RID OF JUNK 

056466 

001002 



BNE 

4S 

.•TEST FOR 0 

056470 

005704 



TST 

R4 

.'SUPPRESS THIS 0? 

056472 

001403 



BEQ 

5S 

;8R IF YES j 

056474 

005204 



4S: INC 

R4 

.DON'T SUPPRESS ANYMORE O'S 1 


SEQ 0226 


H 
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056476 

052703 

000060 

BIS 

056502 

056506 

HBS 

000040 

056552 

5S: Bi S 

MOVB 

056512 

104401 

056552 

TYPE 

056516 

105337 

056554 

7$: DECB 

056522 

003347 


BGT 

056524 

002402 


BLT 

056526 

005204 


INC 

056530 

000744 


BR 

056532 

012605 


6$: MOV 

056534 

012604 


MOV 

056536 

012603 


MOV 

056540 

016666 

000002 000004 

MOV 

056546 

012616 


MOV 

056550 

000002 


RTI 

056552 

000 


8$: .BYTE 

056553 

000 


.BYTE 

056554 

000 


$OCNT: .BYTE 

056555 

000 


SOFILL: .BYTE 

056556 

000000 


SOMODE: .WORD 


#'0,R3 
#' -R3 
R3.8$ 

ioCNT 

II 

R4 

2$ 

(SP)*,R5 
(SP)+,R4 
<SP)+.R3 
2 (SP) ,4 (SP) 
(SPH.tSP) 


0 

0 

0 

0 

0 


HAKE THIS DIGIT ASCII 
HAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE ?3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 


L 
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I 2 


056560 

056564 

056566 

056570 

056572 

056574 

056600 

056606 

056610 

056616 

056620 

056624 

056630 

056632 

056640 

056642 

056644 

056646 

056650 

056652 

056656 

056660 

056664 

056666 

056672 

056674 

056676 

056700 

056702 

056706 

056710 

056714 

056720 

056722 

056726 

056732 

056734 

056740 

056744 


.S8TTL TYPE ROUTINE 


•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


•N0TE1 

•N0TE2 

•N0TE3 


•CALL: 

•1) USING 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


A TRAP INSTRUCTION 


105737 

100002 

000000 

000430 

010046 

017600 

122737 

001011 

132737 

001405 

010037 

004737 

000000 

132737 

001003 

112046 

001005 

005726 

012600 

062716 

000002 

122716 

001430 

122716 

001006 

005726 

104401 

001217 

105037 

000755 

004737 

123726 

001350 

013746 

105366 

002770 

004737 

10533? 

000770 




;* 

TYPE 

, ME SADR 

; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;*0R 






;• 

TYPE 





;• 

;• 

MESADR 



001173 


STYPE: 

TSTB 

STPFLG 

;IS THERE A TERMINAL? 




BPL 

is 

;BR IF YES 




HALT 


;HALT HERE IF NO TERMINAL 




BR 

3s :• 

.'LEAVE 



IS: 

MOV 

RO, -(SP) 

.'SAVE RO 

000002 



MOV 

92 (SP) ,R0 

.'GET ADDRESS OF ASCIZ STRING 

000001 

001242 


CMPB 

#APTENV,SENV 

.RUNNING IN APT NODE 




BNE 

62S 

.‘NO, GO CHECK FOR APT CONSOLE 

000100 

001243 


BITB 

fAPTSPOOL.SENVH 

.‘SPOOL MESSAGE TO APT 

056630 



BEO 

62$ 

;NO.GO CHECK FOR CONSOLE 



MOV 

R0.61S 

.‘SETUP MESSAGE ADDRESS FOR APT 

063206 



JSR 

PC.SATY3 

.'SPOOL MESSAGE TO APT 



61 S: 

.WORD 

0 

.'MESSAGE ADDRESS 

000040 

001243 

62$: 

BITB 

fAPTCSUP.SENVM 

.‘APT CONSOLE SUPPRESSED 




BNE 

60$ 

; YES, SKIP TYPE OUT 



2$: 

M0V8 

(RO)*,-(SP) 

.‘PUSH CHARACTER TO BE TYPED ONTO STALK 




BNE 

4S 

;8R IF IT ISN'T THE TERMINATOR 



60S: 

TST 

(SP)* 

;IF TERMINATOR POP IT OFF THE STACK 



MOV 

(SP )*. RO 

.•RESTORE RO 

000002 


3S: 

ADD 

#2, (SP) 

.‘ADJUST RETURN PC 




RTI 


.'RETURN 

000011 


4S: 

CMPB 

MHT.(SP) ; 

.‘BRANCH IF <HT> 

000200 



BEQ 

8S 




CMPB 

#CRLF,(SP) 

.BRANCH IF NOT <CRLF> 




BNE 

5S 



057110 

056772 

001172 

001170 

000001 

056772 

057110 


5$: 

6 $: 


7$: 


TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MOV 

DECB 

BLT 

JSR 

DECB 

BR 


(SP)* 


JCHARCNT 

2 $ 

PC.fTYPEC 
SFILLC, (SP)* 

2 $ 

SNULL, -(SP) 

1(SP) 

6S 

PC.STYPEC 

SCHARCNT 

7S 


;POP <CR><LF> EQUIV 
;TYPE A CR AND LF 

; CLEAR CHARACTER COUNT 
;GET NEXT CHARACTER 
;G0 TYPE THIS CHARACTER 
;IS IT TIME FOR FILLER CHARS.? 

;IF NO GO GET NEXT CHAR. 

;GET # OF FILLER CHARS. NEEDED 
;AND THE NULL CHAR. 

;DOES A NULL NEED TO BE TYPED? 

;BR IF NO— GO POP THE NULL OFF OF STACK 

;G0 TYPE A NULL 

;D0 NOT COUNT AS A COUNT 

;LOOP 


J 
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.-HOftiZONTAL TAB PROCESSOR 


056746 

112716 

000040 


8$: 

MOVB 

#• .(SP) 

PC, STYPEC 

056752 

004737 

056772 


9$: 

JSR 

056756 

132737 

000007 

057110 


BITB 

*7,$CHARCNT 

056764 

001372 




BNE 

9$ 

056766 

005726 




TST 

(SP) + 

056770 

000724 




BR 

2$ 

056772 

056772 

105777 

122162 


STYPEC: 

TSTB 

3STKS 

056776 

100022 




BPL 

10$ 

057000 

017746 

122156 



MOV 

iSTKB.-(SP) 
#1 77600. (SP) 

057004 

042716 

177600 



BIC 

057010 

122716 

000023 



CMP8 

fSXOFF. (SP) 

057014 

0570.6 

001012 



101$: 

BNE 

102$ 

057016 

105777 

122136 



TSTB 

i$TKS 

057022 

100375 




BPL 

101$ 

057024 

117716 

122132 



MOVB 

dSTKB.(SP) 

#1 77600, (SP) 

057030 

042716 

177600 



BIC 

057034 

122716 

000021 



CMP8 

#$XON,(SP) 

057040 

057042 

001366 



102$: 

BNE 

101$ 

057042 

005726 




TST 

(SP)+ 

057044 

057044 

105777 

122114 


10$: 

TSTB 

a$TPS 

057050 

100375 




BPL 

10$ 

057052 

116677 

000002 

122106 


MOVB 

2(SP),a$TPB 

057060 

122766 

000015 

000002 


CMP8 

#CR,2(SP) 

057066 

001003 




BNE 

1$ 

057070 

105037 

057110 



CLR8 

SCHARCNT 

057074 

000406 




BR 

STVPEX 

057076 

122766 

000012 

000002 

1$: 

CMP8 

#L F.2(SP) 

057104 

001402 




8EQ 

STVPEX 

J57106 

057110 

105227 

000000 



INCB 

$CHARCNT : .WORD 

(PC)+ 

0 

057112 

000207 



$TYPEX: 

RTS 

PC 


SEO 0228 


.'.’REPLACE TAB WITH SPACE 
;;TYPE A SPACE 
.-.'BRANCH IF NOT AT 
; ; TAB STOP 

;;POP SPACE OFF STACK 
; ; GET NEXT CHARACTER 

.* ; CHAR IN KVBD BUFFER? 

;;BR IF NOT 
;;GET CHAR 

.'.'STRIP EXTRANEOUS BITS 
,*;UAS CHAR XOFF 
;;BR IF NOT 

;.*WAIT FOR CHAR 

;;GET CHAR 
;; STRIP IT 
;;UAS IT XON? 

;;8R IF NOT 

; ;F IX STACK 

.-.‘WAIT UNTIL PRINTER IS READY 

.-.-LOAD CHAR TO BE TYPED INTO DATA REG. 
;;IS CHARACTER A CARRIAGE RETURN? 
.‘.'BRANCH IF NO 
;; YES— CLEAR CHARACTER COUNT 
.'.'EXIT 

; ; IS CHARACTER A LINE FEED? 

;; BRANCH IF YES 
;; COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 
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K 2 


SEi 0229 


.S8TTL SCOPE HANDLER ROUTINE 


057114 

057114 

057116 

057122 

057130 

057132 

057136 


104410 

004737 

032777 

001402 

000137 


057136 000416 


057140 

057144 

057152 

057156 

057162 

057164 

057166 

057172 

057174 

057174 

057202 

057204 

057206 

057212 

057214 

057220 

057222 

057226 

057230 

057232 

057236 

057242 

057244 

057246 

057252 

057254 

057262 

057264 

057270 

057276 

057304 

057306 

057314 


013746 

012737 

005737 

012637 

000561 

022626 

012637 

000521 

032777 

001421 

005046 

117716 

001414 

022716 

002411 

011637 

005316 

006316 

062716 

013637 

000547 

005726 

105737 

001502 

022737 

001455 

013746 

012737 

013737 

000406 

012737 

012716 


057662 

040000 122024 
057562 


000004 

057164 000004 

177060 

000004 


000004 

000400 121752 

121742 

000031 

001116 


057600 

001122 


001117 

177777 

000004 

057306 

177766 

177777 

057322 


•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
•AND LOAD THE TEST NUMBER (STSTNN) INTO THE DISPLAY REG. (DISPLAY<7:0» 
•AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SW14=1 LOOP ON TEST 

*SW11=1 INHIBIT ITERATIONS 

*SW09=1 LOOP ON ERROR 

•SW08-1 LOOP ON TEST IN SWR<7:0> 

• CALL 

* SCOPE ;;SCOPE=IOT 


060300 


000004 

060300 

060300 


SSCOPE: 

CKSWR 

JSR 

1$: BIT 

BEQ 
JMP 

9$: 

;#####START OF 

SXTSTR: BR 

NOV 

MOV 

TST 

MOV 

BR 

5$: CMP 

MOV 
BR 

6$:;#####END OF 
BIT 
BEQ 
CLR 
Move 
BEQ 
CMP 
BLT 
MOV 
DEC 
ASL 
ADD 
MOV 
BR 

8$: TST 

2$: TSTB 

BEQ 
CMP 
BEQ 
MOV 
MOV 
MOV 
BR 

2000S: MOV 
MOV 


PC.STOP 

#8IT14,aSWR 

9$ 

SOVER 


;;TEST FOR CHANGE IN SOFT-SWR 

;;LOOP ON PRESENT TEST? 

;;N0 fF SW14*0 

;;JUMP OVER SCOPE ROUTINE 


CODE FOR THE XOR TESTER##### 


6 $ 

a#ERRVEC,-(SP) 

#5S.a#ERRVEC 
a# 1 77060 
(SP)+,i#ERRVEC 
SSVLAD 
(SP)+,(SP)+ 

(SP) +,8#ERRVEC 
7$ 

CODE FOR THE XOR TESTER##### 


; ; IF RUNNING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A ’NOP" (NOP=240) 
;;SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TIMEOUT 
;;TIME OJT ON XOR? 

; .-RESTORE THE ERROR VECTOR 
;;G0 TO THE NEXT TEST 
;; CLEAR THE STACK AFTER A TIME OUT 
; .-RESTORE THE ERROR VECTOR 
;;LOOP ON THE PRESENT TEST 


#8IT08.aSUR 
2 $ 

-(SP) 

aSUR.(SP) 

8 $ 

#31. (SP) 

8S 

(SP) ,$TSTNM 
(SP) 

(SP) 

#$SU08TBL.(SP) 

a(SP)+,$LPADR 

SOVER 

(SPH 

SERFLG 

3S 

#-1 .CPSAVE 
200$S 

ERRVEC.-(SP) 

#2000S,ERRVEC 

177766.CPSAVE 

2001 $ 

#-1 .CPSAVE 
#2001$.(SP) 


;;LOOP ON SPEC. TEST? 

;;8R IF NO 

;; CLEAR A TEMP. LOCATION 
; .-PICKUP THE DESIRED TEST NUMBER 
.-.-BRANCH IF BAD TEST NUMBER IN SWR 
.-.‘CHECK THE NUMBER IN THE SWR 
; .-BRANCH IF TEST NUMBER IS OUT OF RANGE 
;; UPDATE THE TEST NUMBER 
; .-BACKUP BY ONE 

.-.-SCALE THE TEST NUMBER AS AN INDEX 
.-.-FORM THE ADDRESS OF TEST POINTER 
.-.-SET LOOP ADDRESS TO DESIRED TEST 
;;G0 LOOP ON THE TEST 

;; CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
.-.-HAS AN ERROR OCCURRED? 

* *BR IF NO 

••SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 

.-.-KICK AROUND ROUTINE IF SO 

.-.-SAVE CONTENTS OF ERROR VECTOR 

.-.-SETUP ‘TRAP' RETURN ADDRESS 

.-.-MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

.-.-SET CPU ERROR REGISTER TIMEOUT INDICATOR 
.- .-SETUP RETURN ADDRESS 
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057320 

057322 

057326 

057334 

057336 

057344 

057346 

057354 

057360 

057364 

057372 

057376 

057404 

057406 

057412 

057416 

057416 

057424 

057426 

057434 

057436 

057444 

057446 

057452 

057456 

057460 

057466 

057470 

057474 

057476 

057502 

057510 

057512 

057520 

057526 

057532 

057540 

057544 

057550 

057554 

057562 

057570 

057574 

057576 

057600 

057600 

057602 

057604 

057606 

057610 

057612 

057614 

057616 

057620 

057622 


000002 

012637 


012637 000004 


022737 

001430 

032737 

001424 

042737 

013746 

017646 

012737 

011677 

042777 

104177 

012676 

012637 

123737 

101015 

032777 

001404 

013737 

000446 

105037 

005037 

000415 

032777 

001011 

005737 

001406 

005237 

023737 

002024 

012737 

013737 

105237 

113737 

011637 

011637 

005037 

112737 

013777 

013716 

000002 

000005 

000031 

007700 

010100 

011012 

011646 

0)2436 

013376 

014216 

015006 

015744 

016562 


177777 060300 
000001 060300 


000001 

001154 

000000 

000176 

121556 

001000 

000000 

001154 


177766 


001154 

121550 


001131 001117 

001000 121520 

001124 001122 

001117 

001206 

004000 121466 


2003$: 


001230 

001120 

001206 

000001 

057576 

001116 

001116 

001122 

001124 

001210 

000001 

001116 

001122 


001120 

001120 

001206 

001226 


001131 

121366 


RTI 


NOV 

(SP) +.ERRVEC 

CMP 

#-1 .CPSAVE 

BEO 

200$$ 

BIT 

#BI TOO, CPSAVE 

BEQ 

2003$ 

BIC 

#81 TOO. 177766 

NOV 

SWR.-(SP) 

MOV 

8(SP) ,-(SP) 

MOV 

#176, SWR 

MOV 

fsp) .aswR 

BIC 

#8IT09,SSUR 

EMT 

177 

NOV 

(SP)+,i(SP) 

MOV 

(SP ) ♦.SWR 

CMP8 

$ERMAX,$ERFLG 

SHI 

3$ 

BIT 

#81 T09.8SWR 

BEQ 

4$ 

MOV 

$LPERR,$LPADR 

BR 

$OVER 

CLR8 

SERF LG 

CLR 

$TIMES 

BR 

1$ 

81 T 

#BIT11,aSWR 

BNE 

1$ 

TST 

$PASS 

BEQ 

1$ 

INC 

$ICNT 

CMP 

$TIMES,$1CNT 

BGE 

SOVER 

MOV 

#1 ,$ICNT 

MOV 

$MXCNT,$TIMES 

INCB 

$TSTNM 

MOVB 

$TSTNM,$TESTN 

MOV 

(SP), SLPADR 

MOV 

(SP).$LPERR 

CLR 

$E SCAPE 

MOVB 

#1 ,$ERMAX 

MOV 

$TSTNM,aDI SPLAY 

MOV 

$LPADR, (S»P) 

RTI 


5. 



SSU08TBL: 

.REPT $TN-1 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TST1+2 

TST2+2 

TST3+2 

TST4+2 

TST5+2 

TST6+2 

TST7+2 

TST10+2 

TST11+2 

TST12+2 


SEQ 0230 


.-.RESTORE CONTENTS OF ERROR VECTOR 

; ; SEE IF CPSAVE HAS CPU ERR REG TINE OUT INDICATION 
.-.-BRANCH IF SO 

;;SEE IF THE POWER MONITOR BIT IS ON 

; .-BRANCH TO CONTINUE ROUTINE IF CLEAR 

;; CLEAR THE BIT FOUND TO BE SET 

.-.-SAVE SWR ADDRESS 

.-.-SAVE SWR VALUE 

.-.-GET SOFTWARE SWR ADDRESS 

;;GET CURRENT SWR VALUE 

; .-DON'T ALLOW LOOP ON ERROR ON THIS ERROR 

.-.-CALL SPECIAL POWER FAIL BIT ERROR CALL 

.-.-RESTORE SWR TO ORIGINAL VALUE 

.-.-RESTORE SWR ADDRESS 

.-.-MAX. ERRORS FOR THIS TEST OCCURRED? 

;;BR IF NO 
;;LOOP ON ERROR? 

- *BR IF NO 

••SET LOOP ADDRESS TO LAST SCOPE 


.-.-ZERO THE ERROR FLAG 
;; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
; .-ESCAPE TO THE NEXT TEST 
;; INHIBIT ITERATIONS? 

;;BR IF YES 

;;IF FIRST PASS OF PROGRAM 

;; INHIBIT ITERATIONS 

.-.-INCREMENT ITERATION COUNT 

;; CHECK THE NUMBER OF ITERATIONS MADE 

;;8R IF MORE ITERATION REOUIRED 

.’.‘REINITIALIZE THE ITERATION COUNTER 

.-.-SET NUMBER OF ITERATIONS TO DO 

;; COUNT TEST NUMBERS 

.-.’SET TEST NUMBER IN APT MAILBOX 

.-.-SAVE SCOPE LOOP ADDRESS 

.-.-SAVE ERROR LOOP ADDRESS 

;; CLEAR THE ESCAPE FROM ERROR ADDRESS 

.-.-ONLY ALLOW 0NE<1> ERROR ON NEXT TEST 

;; DISPLAY TEST NUMBER 

; .-FUDGE RETURN ADDRESS 

- -FIXES PS 

••MAX. NUMBER OF ITERATIONS 


;; STARTING 
;; STARTING 
.-.-STARTING 
;; STARTING 
;; STARTING 
;; STARTING 
.-.-STARTING 
;; STARTING 
; .-STARTING 
;; STARTING 


ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 


TEST 1 
TEST 2 
TEST 3 
TEST 4 
TEST 5 
TEST 6 
TEST 7 
TEST 10 
TEST 11 
TEST 12 
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SEQ 0231 


057624 

057626 

057630 

057632 

057634 

057636 

057640 

057642 

057644 

057646 

057650 

057652 

057654 

057656 

057660 


017222 

017676 

020520 

021262 

022024 

022376 

022750 

023312 

023634 

024152 

025064 

025706 

026610 

027676 

030522 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


2 

3 



.-DROP PRIORITY 

5 057662 



STOP: 


057662 

012746 

000140 


MOV 

057666 

012746 

057674 


MOV 

057672 

057674 

000002 


64$: 

RTI 

6 

7 

8 

9 057674 



.•RAISE 

PRIORITY 

012746 

000240 


MOV 

057700 

012746 

057706 


MOV 

057704 

057706 

000002 


65$: 

RTI 

10 057706 

000207 



RTS 


TST13+2 

TST14+2 

TST15+2 

TST16+2 

TST17+2 

TST20+2 

TST21+2 

TST22+2 

TST23+2 

TST24+2 

TST25+2 

TST26+2 

TST27+2 

TST30+2 

TST31+2 


#PR3,-(SP) 
#64$, -(SP) 


#PR5,-(SP) 
#65$,- (SP) 


STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTIN6 

STARTING 

STARTING 


ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 


TEST 13 
TEST 14 
TEST 15 
TEST 16 
TEST 17 
TEST 20 
TEST 21 
TEST 22 
TEST 23 
TEST 24 
TEST 25 
TEST 26 
TEST 27 
TEST 30 
TEST 31 


PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 


PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 


; RETURN 
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N 2 


SEQ 0232 


1 


057710 

057714 

057716 

057722 

057724 

057732 

057740 

057742 

057746 

057752 

057756 

057764 

057772 

060000 

060002 

060010 

060012 

060016 

060020 

060026 

060030 

060034 

060042 

060050 

060052 

060060 

06006* 

060066 

060072 

060100 

060102 

060110 

060112 

060120 

060126 

060134 

060136 

060142 

060142 

060150 

060152 


105037 

104410 

105237 

001775 

013777 

032777 

001402 

104401 

005237 

011637 

162737 

117737 

032777 

001060 

122737 

001454 

105737 

001047 

022737 

001445 

013746 

012737 

013737 

000406 

012737 

012716 

000002 

012637 

022737 

001420 

032737 

001414 

042737 

113737 

112737 

000402 


060302 

001117 

001116 

002000 

001212 

001126 

001132 

000002 

121142 

001000 

000177 

060302 

177777 

000004 

060052 

177766 

177777 

060066 

000004 

177777 

000001 

000001 

001130 

000177 


.S6TTL ERROR HANDLER ROUTINE 

********************************* ******************************* 
•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO ERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


•SW15=1 
*SU13=1 
*SW10=1 
*SW09=1 
•CALL 


(ERROR : CLRB 
CKSWR 
7$: INCB 

BEO 
MOV 
BIT 
BEQ 
TYPE 
1$: INC 

MOV 
SUB 
MOVB 
BIT 
BNE 
CMP8 
BEO 
TSTB 
BNE 
CMP 
BEO 
MOV 
MOV 
MOV 
BR 

060300 1000$: MOV 
MOV 
RTI 

1001$: MOV 


121224 

121214 


001132 

001130 

121154 

001130 


060300 


000004 

060300 


060300 

060300 

177766 

060302 

001130 


105037 060302 

020000 121004 


032777 

001004 

0C4737 


060304 


1002$: CMP 
BEQ 
BIT 
BEO 
BIC 
MOVB 
MOVB 
BR 

1003$: CLRB 
1004$: 

BIT 

BNE 

JSR 


HALT ON ERROR 
INHIBIT ERROR 
BELL ON ERROR 
LOOP ON ERROR 


TYPEOUTS 


ERROR N 


; ; ERROR=EMT AND TERROR ITEM NUMBER 


1BSAVE 


$ERFLG 

7$ 

$TSTNM,3DISPLAY 

#8IT10,SSWR 

1 $ 

,$BELL 

$ERTTL 

(SP).SERRPC 

#2.$ERRPC 

B$ERRPC,$ITEMB 

#8IT09,aSWR 

1004$ 

#177.$ITEMB 

1004$ 

IBSAVE 

1003$ 

#-1, CPSAVE 
1004$ 

ERRVEC.-(SP) 
#1000$,ERRVEC 
1 77766. CPSAVE 
100 '$ 

#-1 .CPSAVE 
#106l$.<SP) 

(SR ) +.ERRVEC 

#-1. CPSAVE 
1004$ 

#81 TOO. CPSAVE 
1004$ 

#81 TOO. 177766 
$ITEMB. IBSAVE 
#177,$ITEMB 
1004$ 

IBSAVE 

#8IT13.BSWR 

20 $ 

PC. ERRTYP 


CLEAR THE ITEM BYTE SAVE LOCATION 

TEST FOR CHANGE IN SOFT-SWR 

SET THE ERROR FLAG 

DON’T LET THE FLAG GO TO ZERO 

DISPLAY TEST NUMBER AND ERROR FLAG 

BELL ON ERROR? 

NO - SKIP 
RING BELL 

COUNT THE NUMBER OF ERRORS 
GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 

SEE IF LOOP ON ERROR IS SET 

BRANCH AROUND ROUTINE IF SO 

SEE IF THIS IS THE POWER FAIL CALL 

BRANCH AROUND ROUTINE IF IT IS 

SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 

BRANCH IF SO 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
SDAWrW if 

SAVE CONTENTS OF ERROR VECTOR 

SETUP ’TRAP* RETURN ADDRESS 

MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 
SETUP RETURN ADDRESS 

RESTORE CONTENTS OF ERROR VECTOR 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 

BRANCH IF OK 

CLEAR THE BIT FOUND SET 

MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 

SET $ITEMB TO SPECIAL POWER FAIL POINTER 

BRANCH OVER IBSAVE CLEARING 

CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

SKIP TYPEOUT IF SET 

SKIP TYPEOUTS 

60 TO USER ERROR ROUTINE 



SEQ 0233 


;; RUNNING IN APT MODE 
;;NO,$KIP APT ERROR REPORT 
; ; SET ITEM NUMBER AS ERROR NUMBER 
; .-REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 

;;SEE IF IBSAVE IS LOADED 

; .-BRANCH IF NOT - NO HALT ON PUR MON BIT ERROR 
.-.-HALT ON ERROR 
.-.-SKIP IF CONTINUE 
.-.-HALT ON ERROR! 

;;TEST FOR CHANGE IN SOFT-SUR 

.-.-LOOP ON ERROR SWITCH SET? 

;;BR IF NO 

.-.-FUDGE RETURN FOR LOOPING 
.-.-CHECK FOR AN ESCAPE ADDRESS 
* *8R IF NONE 

;; FUDGE RETURN ADDRESS FOR ESCAPE 

; .-ACT-11 AUTO-ACCEPT? 

;; BRANCH IF NO 
; ; YES 

.-.-SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
.-.-BRANCH BACK TO CALL ORIGINAL ERROR 
- -RETURN 

••LOCATION TO SAVE CPU ERROR REG CONTENTS 
;. -LOCATION TO SAVE ITEM BYTE 


■T'Wf'J— »0 OOO -^jo '-n-f'OJf'O- O'OOO^jO^n-f^s^J f\J— *0>000 ‘O'OOO-NiO v^i-T'V-'JfNj 
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SEQ 0234 


C 3 


.S8TTL ERROR TYPEOUT ROUTINE 

•THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
•REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 

• .UNIT NUMBER. DRIVE TYPE. TEST NUMBER. ERROR NUMBER AND 
•PROGRAM COUNTER ARE PRINTED ON THE FIRST LINE; 

• .ERROR MESSAGE IS ASSEMBLED. FORMATTED AND PRINTED ON 
•ONE OR MORE SUCCEEDING LINES; 

• .PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
•AFTER THE ERROR MESSAGE. 


060304 

060306 

060314 

060316 


060322 

060326 

060332 

060336 

060340 

060341 


104414 

032777 

001402 

000137 


104401 

104401 

013746 

104403 

003 

000 


020000 120640 

BIT 

#SUl3,aSUR 

.’INHIBIT TVPEOUTS?? 

BED 

IS 

;NO!' 

061114 

JMP 

27$ 

;YES!! 


.•TYPE UNIT NUMBER, DRIVE TYPE, 

; PROGRAM COUNTER 

TEST NUMBER, ER.TOR NUMBER 

001217 

IS: TYPE 

.SCRLF 

.•TYPE ‘DRV#" 

061130 

TYPE 

.ERTYOO 

001234 

MOV 

TYPOS 

SUNIT.-(SP) 

.’.’SAVE SUNIT FOR TYPEOUT 
.‘.•TYPE DRIVE NUMBER 
.’.’GO TYPE-OCTAL ASCII 


.BYTE 

3 

.’.’TYPE 3 DIGIT (S) 


.BYTE 

0 

;; SUPPRESS LEADING ZEROS 


AND 


060342 

060346 

C60352 

060356 

060364 

060370 

060372 

060376 

060400 


060402 
060406 
060414 
060420 

060424 
060426 
060427 
060430 
060434 
060442 
060444 
060450 

060454 
060456 
060457 
45 060460 


013700 

016000 

042700 

012737 

022700 

001004 

104401 

104401 

000000 


005037 

013737 

104401 

013746 

104403 

003 

000 

005037 

113737 

001406 

104401 

013746 

104403 

003 

000 

104401 



;TYPE 

•DRIVE 

001276 


MOV 

000026 


MOV 

177740 


BIC 

064522 060400 


MOV 

000026 


CMP 

BNE 

061165 

2S: 

TYPE 

TYPE 


3S: 

.WORD 


061120 

001226 

061135 

061120 


061120 


SBASE.RO 

RMDT(R0>.R0 

#1 77740.R0 

#$RM80.3S 

#26.R0 

4$ 

.ERTY05 


.-TYPE TEST NUMBER. ERROR NUMBER 
4$: CLR TSTNMB 

MOV STESTN.TSTNMB 

TYPE .ERTY01 

MOV TSTNMB. -(SP) 



TYPOS 

.BYTE 

3 


.BYTE 

0 

061122 

CLR 

ERRNMB 

001130 061122 

MOVB 

SI TEMB. ERRNMB 


8E0 

5S 

061145 

TYPE 

.ERTY02 

061122 

MOV 

ERRNMB. -(SP) 


TYPOS 

.BYTE 

3 


.BYTE 

0 

061154 5S: 

TYPE 

.ERTY03 


;GET RM BASE ADDRESS 
;GET DRIVE TYPE REGISTER 
.’SAVE DRIVE TYPE BITS AND 
.’GET ASCII DRIVE TYPE 
;IS DEVICE AN RM80 ? 

;N0 !! 

.’TYPE " - " 

.•TYPE DRIVE TYPE 

.’DRIVE TYPE MESSAGE IS STORED HERE 

AND PROGRAM COUNTER 
LOAD TEST NUMBER FOR 


TYPE "TST#“ 

SAVE TSTNMB FOR TYPEOUT 
TYPE TEST NUMBER 
GO TYPE— OCTAL ASCII 
TYPE 3 DIGIT(S) 

SUPPRESS LEADING ZEROS 
LOAD ERROR NUMBER FOR 
TYPEOUT 

SKIP IF NO ERROR CALLED 
TYPE cRR#' * 

SAVE ERRNMB FOR TYPEOUT 
TYPE ERROR NUMBER 
GO TYPE— OCTAL ASCII 
TYPE 3 DIGIT(S) 

SUPPRESS LEADING ZEROS 
TYPE *K=" 


D 3 



SEQ 0235 


.-.SAVE SERRPC FOR TYPE OUT 
;;TYPE PROGRAM COUNTER 
;;G0 TYPE— OCTAL ASCII 
; ; TYPE 6 DIGIT(S) 

; ; TYPE LEADING ZEROS 

UNLESS ERROR NUMBER IS 0 
;UAS AN ERROR CALLED? 

;BR IF YES 
; NO— EXIT 

; YES-TYPE CRLF 
; CLEAR BOT FLAG 
.'CLEAR CHARACTER COUNTER 
;R0 POINTS TO FIRST OF 

;SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
.'BRANCH IF NOT 

.-HOVE POWER FAIL ERROR CALL TABLE TO RO 

.•FOUR ENTRIES IN ERROR 
.'TABLE 


R1 POINTS TO ERROR MESSAGE 
TABLE 

BRANCH IF NO ERROR MESSAGE 


R2=ADDRESS OF MESSAGE STRING 
BRANCH IF END OF MESSAGE 
LOAD ADDRESS OF STRING 
CLEAR BOT ADDRESS 
END OF STRING?? 

YES*! 

CARRIAGE RETURN?? 

NO!! 

YES-CLEAR CHAR COUNT 
GET NEXT CHARACTER 
LINE FEED?? 

YES-GET NEXT CHARACTER 
HORIZONTAL TAB?? 

NO!! 

ADJUST CHARACTER COUNT 


INCREMENT CHARACTER COUNT 
SPACE?? 

NO!! 

SAVE ADDRESS OF SPACE 
END OF LINE?? 

NO* * 

GET ADDRESS OF LAST SPACE 
BRANCH IF SPACE DETECTED 
TYPE CRLF 

CLEAR CHARACTER COUNT 
SET UP R2 FOR TESTING 


1 


E 
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99 

060716 

000726 



BR 

11$ 

100 

060720 

105044 


16$: 

CLR8 

-(R4) 

• 01 

060722 

112737 

177777 061126 

17$: 

H0V8 

#-1 .BOTFLG 

102 

060730 

104401 


TYPE 


103 

104 

060732 

060734 

000000 

105737 

061126 

18$: 

.WORD 

TSTB 

BOTFLG 

105 

060740 

001707 



BEQ 

10$ 

106 

060742 

104401 

001217 


TYPE 

,$CRLF 

107 

060746 

105037 

061126 


CLR8 

BOTFLG 

108 

060752 

105037 

061127 


CLRB 

CHRCNT 

109 

060756 

013702 

061124 


MOV 

BOTADR. R2 

110 

060762 

010237 

060732 


MOV 

R2,18$ 

111 

060766 

112742 

000040 


M0V8 

#' ,-(R2) 

(R25 + 

112 

060772 

105722 



TSTB 

113 

114 

115 

060774 

000677 



BR 

11$ 




.•TYPE ERROR HEADER AND ERROR 

116 

060776 

016001 

000002 

19$: 

MOV 

2(R0) ,R1 

117 

061002 

001444 



BEQ 

27$ 

118 

061004 

104401 

001 21 7 


TYPE 

.$CRLF 

119 

061010 

016002 

000004 


MOV 

4(R0).R 2 

120 

061014 

016003 

000006 


MOV 

6(R0).R3 

121 

061020 

012137 

061030 

20$: 

MOV 

(R1)+.21$ 

122 

061024 

001433 



BEQ 

27$ 

123 







124 

061026 

104401 


21$: 

TYPE 


125 

061030 

000000 


.WORD 

0 

126 

061032 

104401 

001217 


TYPE 

,$CRLF 

127 

061036 

005702 



TST 

R2 

128 

061040 

001767 



BEO 

20$ 

129 

061042 

012204 



MOV 

(R2)+.R4 

130 

061044 

012305 


22$: 

MOV 

(R3)+.R5 

131 

061046 

105725 


TSTB 

(R5)+ 

132 

061050 

100407 



BMI 

24$ 

133 

061052 

001403 



BEQ 

23$ 

134 

061054 

013446 



MOV 

8(R4)+,-(SP) 

135 

061056 

104405 



TYPDS 

25$ 

136 

061060 

000405 


23$: 

BR 

137 

061062 

013446 


MOV 

8(R4)+,-(SP) 

138 

061064 

104402 



TYPOC 

25$ 

139 

061066 

000402 



BR 

140 

061 070 

013446 


24$: 

MOV 

a(R4)*.-(SP) 

141 

061072 

104406 



TYP8N 

(R4) 

142 

061074 

005714 


25$: 

TST 

143 

061076 

001403 



BEQ 

26$ 

144 

061100 

104401 

061162 


TYPE 

.ERTY04 

$2$ 

145 

061104 

000760 



BR 

146 

061106 

104401 

001217 

26$: 

TYPE 

.$CRLF 

2o$ 

147 

06111? 

000742 



BR 

148 

061114 

104415 


27$: 

RESREG 


149 

150 

151 

061116 

000207 



RTS 

PC 

061120 

000000 


TSTNMB: 

.WORD 

0 

152 

061122 

000000 


ERRNMB: 

.WORD 

0 

153 

061124 

oooooo 


BOTADR: 

.WORD 

0 

154 

061126 

000 


BOTFLG: 

.BYTE 

0 

155 

061127 

000 


CHRCNT : 

.BYTE 

0 


3 


.‘REPLACE SPACE 
;SET BOT FLAG 

.-TYPE ERROR MESSAGE STRING 
.•STRING ADDRESS GOES HERE 
;WAS STRING TRUNCATED?? 

.NO!! 

; YES-TYPE CRLF 
.•CLEAR BOT FLAG 
.‘CLEAR CHARACTER COUNT 
.•SETUP R2 FOR TESTING 
.•SETUP IBS FOR TYPING 
.•RESTORE SPACE 
.•RESTORE R2 
.TYPE REST OF STRING 

DATA 

;R1 POINTS TO ERROR HEADER TABLE 
.-BRANCH IF NO HEADER 
; (ASSUME NO DATA) 

;R2 POINTS TO DATA ADDRESS TABLE 
;R3 POINTS TO FORMAT TABLE 
.•PUT HEADER ADDRESS FOR TYPE 
.‘BRANCH IF END OF HEADERS 
.-(ASSUME END OF DATA) 

.•HEADER ADDRESS GOES HERE 

.’DATA WITH HEADER?? 

‘NO* 1 

;R4 POINTS TO DATA ADDRESS 
;R5 POINTS TO FORMAT 
;UHAT KIND OF DATA?? 

.-BINARY 
; OCTAL 
.’DECIMAL 


MORE DATA?? 

NO 1 1 

YES-TYPE 2 SPACES 
AND CONTINUE 
TYPE ONE BLANK LINE 
BEFORE NEXT HEADER 


TEST NUMBER 
ERROR NUMBER 

BEGINNING OF TEXT ADDRESS 
BOT FLAG 
CHARACTER COUNT 



SEO 0237 
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156 

157 061130 104 122 126 ERTYOO: .ASCI 2 8DRV#8 

58 06 35 054 040 124 ERTY01: .ASCI2 8, TEST#. 

159 061145 054 040 105 ERTY02: .ASCIZ 8. ERR#8 

160 061154 054 040 120 ERTY03: .ASCIZ 8. PC=8 

161 061162 040 040 000 ERTY04: .ASCIZ 8 8 

162 061165 040 055 040 ERTY05: .ASCIZ 8-8 

163 .EVEN 

164 061172 061202 061270 061306 PFECH: PFECH1 .PFECH2.PFJ 

165 061202 061206 000000 PFECH1: .+4.0 

166 061206 120 117 127 .ASCIZ 7POWER « 

167 .EVEN 

168 061270 061274 000000 PFECH2: .*4.0 

169 061274 103 120 125 .ASCIZ ?CPUERRE( 

170 -EVEN 

171 061306 061310 PFECH3: .*2 

172 061310 060300 000000 .WORD CPSAVE.O 

173 061314 061316 PFECH4: .♦ 2 

174 061316 000 000 .BYTE 0.0 


061202 

061206 

120 

061274 

103 

061310 

060300 

061316 

000 


061270 

000000 

117 

000000 

120 


000000 


061306 


EVEN 

PFECH: PFECH1.PFECH2.PFECH3.PFECH4 .-WORDS DEFINING TABLES BELOW 
PFECH1: .+4,0 

.ASCIZ 7P0WER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 


.ASCIZ 
.EVEN 
PFECH2: .*4,0 
.ASCIZ 
.EVEN 

PFECH3: .*2 
.WORD 

PFECH4: .♦ 2 
.BYTE 


PFECH3: 


7CPUERREG? 


CPSAVE.O 


SEQ 0238 
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G 3 


.S8TTL TTY INPUT ROUTINE 


061320 000000 
061322 000000 
061324 000000 
061326 

061327 


.ENABL LSB 
STKCNT: .WORD 0 
STKOIN: .WORD 0 
STKQOUT: .WORD 0 
STKQSRT: .BLK8 1 
STKQEND=. 

.EVEN 


; .’NUMBER OF ITEMS IN QUEUE 
;; INPUT POINTER 
;; OUTPUT POINTER 
;;TTY KEYBOARD QUEUE 


*TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


•CALL: 

• JSR 

* RETURN 


061330 

005037 

061320 


ITKINT: CLR 

061334 

012737 

061326 

061322 

MOV 

061342 

013737 

061322 

061324 

MOV 

061350 

012737 

061400 

000060 

MOV 

061356 

012737 

000200 

000062 

MOV 

061364 

005777 

117572 


TST 

061370 

012777 

000100 

117562 

MOV 

061376 

000207 



RTS 


PC.STKINT 


STKCNT 

fSTKQSRT.STKQIN 

STKQIN.STKQOUT 

fSTKSRV . ifTKVE C 

#20 O.B#TKVEC+2 

dSTKB 

fioo.asTKS 

PC 


;; CLEAR COUNT OF ITEMS IN QUEUE 
; .'MOVE THE STARTING ADDRESS OF THE 
;. ’QUEUE INTO THE INPUT t OUTPUT POINTERS. 
; .-INITIALIZE THE KEYBOARD VECTOR 
;;'BR" LEVEL 4 * 

.’.‘CLEAR DONE FLAG 

;; ENABLE TTY KEYBOARD INTERRUPT 

;; RETURN TO CALLER 


061400 

117746 

117556 


iTKSRV: 

M0V8 

aSTKB.-(SP) 

#*C177.(SP) 

(SP).#SX0N 

061404 

042716 

177600 



B1C 

061410 

021627 

000021 



CMP 

061414 

001002 




BNE 

30S 

061416 

005726 




TST 

<SP) + 

061420 

061422 

000002 



30$: 

RTI 

(SP).#3 

061422 

021627 

000003 



CMP 

061426 

001007 




BNE 

IS 

061430 

104401 

062526 



TYPE 

.SCNTLC 

061434 

004737 

061330 



JSR 

PC.STKINT 
(SP) + 

SHUT2 

061440 

061442 

m 

062570 



TST 

JMP 

061446 

021627 

000007 


IS: 

CMP 

(SP),#7 

061452 

001004 




BNE 

2$ 

06H54 

022737 

000176 

001154 


CMP 

fSWREG.SWR 

061462 

001500 




BEQ 

6$ 

061464 

061464 

022737 

000001 

061320 

2$: 

CMP 

#1. STKCNT 

061472 

001004 




BNE 

3S 

061474 

104401 

001212 



TYPE 

.S8ELL 


;*TK SERVICE ROUTINE 

.-•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
;*SY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
.’•IT IN THE QUEUE. 

.’•IF THE CHARACTER IS A "CONTROL-C" <*C) STKINT IS CALLED AND 
.-•UPON RETURN EXIT IS MADE TO THE “CONTROL-C" RESTART ADDRESS (SHUT2) 

;. PICKUP THE CHARACTER 
;; STRIP THE JUNK 
;,‘1S IT A RANDOM XON? 

;; BRANCH IF UZ 
.’.•CLEAN RANDOM XON OFF STACK 
;; RETURN 

;;IS IT A CONTROL C? 

; .’BRANCH IF NO 
.-.-TYPE A CONTROL-C (*C> 

;;IN1T THE KEYBOARD 
;.* CLEAN UP STACK 
;; CONTROL C RESTART 
;;IS IT A CONTROL G? 

.’.’BRANCH IF NO 
;;IS SOFT-SWR SELECTED? 

; .* 60 TO SWR CHANGE 

;;IS THE QUEUE FULL? 

; .’BRANCH IF NO 
.-.’RING THE TTY BELL 
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H 3 


SEQ 02, 


061500 

005726 




TST 

(S P)* 

.-CLEAN CHARACTER OFF OF STACK 

061502 

000451 




BR 

5$ 

.EXIT 

061504 

021627 

000023 


3$: 

CMP 

(SP ) .023 

;IS IT A CONTROL -S? 

061510 

001021 




BNE 

32$ 

.-BRANCH IF NO 

061512 

005077 

117442 



CLR 

d$TKS 

; DISABLE TTY KEYBOARD INTERRUPTS 

061516 

005726 




TST 

(SP)* 

; CLEAN CHAR OFF STACK 

061520 

105777 

117434 


31$: 

TSTB 

BSTKS 

.-WAIT FOR A CHAR 

061524 

100375 




BPL 

31$ 

.-LOOP UNTIL ITS THERE 

061526 

117746 

117430 



NOVB 

aSTKB.-(SP) 

.-GET THE CHARACTER 

061532 

042716 

177600 



BIC 

#*C177, (SP) 

.-MAKE IT 7-BIT ASCII 

061536 

022627 

000021 



CMP 

(SP)*.#21 

;IS IT A CONTROL-Q? 

061542 

001366 




BNE 

31$ 

.-BRANCH IF NO 

061544 

012777 

000100 

117406 


NOV 

#100.a$TKS 

.-REENABLE TTY KEYBOARD INTERRUPTS 

061552 

000002 




RTI 


.-RETURN 

061554 

005237 

061320 


32$: 

INC 

STKCNT 

.-COUNT THIS CHARACTER 

061560 

021627 

000140 



CMP 

(SP) .#140 

;IS IT UPPER CASE? 

061564 

002405 




BLT 

4$ 

.-BRANCH IF YES 

061566 

021627 

000175 



CMP 

(SP) .#1 75 

;IS IT A SPECIAL CHAR? 

061572 

003002 




BGT 

4$ 

.-BRANCH IF YES 

061574 

042716 

000040 



BIC 

#40. (SP) 

.-MAKE IT UPPER CASE 

061600 

112677 

177516 


4$: 

NOVB 

(SP)*, aSTKQIN 

.-AND PUT IT IN QUEUE 

061604 

005237 

061322 



INC 

STKQ1N 

.-UPDATE THE POINTER 

061610 

023727 

061322 

061327 


CMP 

$TKQIN,#$TKQEND 

,-GO OFF THE END? 

061616 

001003 




BNE 

5$ 

.-BRANCH IF NO 

061620 

012737 

061326 

061322 


NOV 

#$TKQSRT,$TKQIN 

.-RESET THE POINTER 

061626 

000002 



5$: 

RTI 


.‘RETURN 


061630 022737 000176 001154 
C61636 001124 
061640 105777 117314 
061644 100121 
061646 117746 117310 
061652 042716 177600 
061656 021627 000007 
061662 001300 


t*** 


.-•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

.-•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
.-•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
•CALL WHEN OPERATING IN TTY INTERRUPT NODE. 


« ” vnkL wikii 

SCKSWR: CMP 
BNE 
TST8 
8PL 
MO VS 
BIC 
CMP 
BNE 


fSWREG.SWR 

15$ 

BSTKS 

15$ 

a$TKB.-(SP) 
#*C177.(SP) 
(SP) .07 

2 $ 


IS THE SOFT-SUR SELECTED 

EXIT IF NOT 

IS A CHAR WAITING? 

IF NOT. EXIT 
YES 

MAKE IT 7-BIT ASCII 
IS IT A CONTROL-G? 

IF NOT. PUT IT IN THE TTY QUEUE 
AND EXIT 


•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 


061664 

123727 

001150 

000001 

6$: 

CMP8 

061672 

001674 




BEQ 

061674 

005726 




TST 

061676 

004737 

061330 



JSR 

061702 

005077 

117252 



CLR 

061706 

112737 

000001 

001151 


NOVB 

061714 

104401 

062540 



TYPE 

061720 

104401 

062545 


JGTSUR: 

TYPE 

061724 

013746 

000176 



NOV 

061730 

104402 




TYPOC 


$AUTOB.n 

(SP)* 
PC,$TKINT 
B$TKS 
#1 .SINTAG 

.SCNTLG 

.SMSWR 

SWREG.-(SP) 


ARE WE RUNNING IN AUTO-NODE? 
BRANCH IF YES 
CLEAR CONTROL-G OFF STACK 
FLUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
SET INTERRUPT NODE INDICATOR 

ECHO THE CONTROL-G (*G) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE— OCTAL ASCII (ALL DIGITS) 
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061732 104401 062556 

061736 005046 191 

061740 005046 

061742 105777 117212 7$: 

061746 100375 

061750 117746 117206 
061754 042716 177600 

061760 021627 000003 
061764 001015 
061766 104401 062526 
061772 062706 000006 
061776 123727 001151 000001 

062004 001003 

062006 012777 000100 117144 
062014 000137 062570 8$: 


.SMNEU 

-(SP) 

-(SP) 

»$TKS 

7$ 

WTKB.-(SP) 
#*C17^, (SP) 

(SP),#3 

9$ 

,$CNTLC 

#6,SP 

$INTAG,#1 

8$ 

#ioo,a$TKS 

SHUT2 


062020 

062024 

062026 

062032 

062036 


021627 

001005 

104401 

062706 

000737 


000025 

062533 

000006 


(SP) ,#25 
10 $ 

,$CNTLU 

#6,SP 

19$ 


062040 

062044 

062046 

062052 

062054 

062062 

062066 

062072 

062100 

062102 

062110 

062112 

062116 

062122 

062124 

062130 

062132 

062136 

062142 

062144 

062146 

062150 

062152 

062156 

062162 

062164 

062170 


021627 

001022 

005766 

001403 

016677 

062706 

104401 

123727 

001003 

012777 

000002 

004737 

021627 

002420 

021627 

003015 

042726 

005766 

001403 

006316 

006316 

006316 

005266 

056616 

000667 

104401 

000720 


000015 

000004 

000002 117072 

000006 

001217 

001151 000001 

000100 117050 

056772 

000060 

000067 

000060 

000002 


000002 

001216 


10$: CMP 

BNE 
TST 
BEG 
MOV 

11$: ADO 

14$: TYPE 

CNP8 
BNE 
MOV 

15$: RTI 

16$: JSR 

CMP 
BLT 
CMP 
BGT 
BIC 
TST 
BEQ 
ASL 
ASL 
ASL 

17$: INC 

8IS 
BR 

18$: TYPE 

BR 

.DSABL LSB 


(SP) ##15 
16 $ 

4(SP) 

11 $ 

2(SP),asuR 

#6,SP 

.SCRLF 

$INTAG.#1 

15$ 

#ioo.a$TKs 

PC.STYPEC 
(SP) ,#60 
18$ 

(SP).# 67 
18$ 

#60, (SP)* 
2(SP) 

17 $ 

(SP) 

(SP) 

(SP) 

2(SP) 

-2(SP).(SP) 

7$ 

.$QUES 

2o$ 


# # 


SEQ 0240 


;; PROMPT FOR NEW SUR 
;; CLEAR COUNTER 
,;THE NEW SWR 
;;CHAR THERE? 

; ; I F NOT TRY AGAIN 

;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 

; ; I S IT A CONTROL-C? 

; .BRANCH IF NOT 

;;YES, ECHO CONTROL-C (*C) 

;; CLEAN UP STACK 

; .-REENABLE TTY KEYBOARD INTERRUPTS? 
; .BRANCH IF NO 

; .-ALLOW TTY KEYBOARD INTERRUPTS 
;; CONTROL-C RESTART 


;,*1S IT A CONTROL -U? 
.-.-BRANCH IF NOT 
;;YES, ECHO CONTROL-U (*U) 
.-.-IGNORE PREVIOUS INPUT 
; .-LET’S TRY IT AGAIN 


;IS IT A <CR>? 

; BRANCH IF NO 

; YES, IS IT THE FIRST CHAR? 
.-BRANCH IF YES 
.-SAVE NEW SUR 
.-CLEAR UP STACK 
.-ECHO <CR> AND <LF> 

.-RE-ENABLE TTY KBD INTERRUPTS? 
.-BRANCH IF NOT 

.-RE-ENABLE TTY KBD INTERRUPTS 

.-RETURN 

.-ECHO CHAR 

.-CHAR < 0? 

.-BRANCH IF YES 
.-CHAR > 7? 

.-BRANCH IF YES 
; STRIP-OFF ASCII 
;IS THIS THE FIRST CHAR 
.-BRANCH IF YES 
;N0. SHIFT PRESENT 
; CHAR OVER TO MAKE 

; ROOM FOR NEU ONE. 

.-KEEP COUNT OF CHAR 
;SET IN NEU CHAR 
.-GET THE NEXT ONE 
.-TYPE ?<CRXLF> 

.-SIMULATE CONTROL-U 


j 
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J 3 


SEQ 0241 







;»THIS ROUTINE 

WILL INPUT A SINGLE CHARACTER FROM THE TTY 






;*CALl: 








;* RDCHR 


.GET A CHARACTER FROM THE QUEUE 






:• RETURN HERE 

; CHARACTER IS ON THE STACK 






;* 

9 

.-WITH PARITY BIT STRIPPED OFF 

062172 

011646 



SRDCHR: NOV 

(SP) f -(SP) 

.PUSH DOWN THE PC AND 

062174 

016666 

000004 

000002 


NOV 

4(SP).2(SP) 

;THE PS 

062202 

005066 

000004 



CLR 

4(SP) 

.’GET READY FOR A CHARACTER 

062206 

005046 




CLR 

-(SP) 

.-PUT NEW PS ON STACK 

062210 

012746 

062216 



NOV 

#64$, -(SP) 

.-PUT NEW PC ON STACK 

062214 

000002 




RTI 

• 

.-POP NEW PC AND PS 

062216 




64$: 



062216 

005737 

061320 


1$: TST 

STKCNT 

.-WAIT ON A CHARACTER 

062222 

001775 




BEQ 

1$ 


062224 

005337 

061320 



DEC 

STKCNT 

.’DECREMENT THE COUNTER 

062230 

117766 

177070 

000004 


MOVB 

8STKQ0UT. 4 (SP) ; 

.’GET ONE CHARACTER 

062236 

005237 

061324 



INC 

STKQOUT 

.•UPDATE THE POINTER 

062242 

023727 

061324 

061327 


CMP 

STKQOUT ,#$TKQEND 

.’.’DID IT GO OFF OF THE END? 

062250 

001003 




BNE 

2$ 

.’BRANCH IF NO 

062252 

012737 

061326 

061324 


NOV 

#$TKQSRT. STKQOUT 

; .’RESET THE POINTER 

062260 




2$: RT1 

9 

.’RETURN 






■•THIS ROUTINE 

WILL INPUT A STRING FROM THE TTY 






•CALL: 








* RDLIN 

• 

.‘INPUT A STRING FROM THE TTY 






■* RETURN HERE 

.’ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 






'• 


.’TERMINATOR WILL BE A BYTE OF ALL O’S 

062262 

010346 



SRDLIN: NOV 

R3.-(SP) 

.’SAVE R3 

062264 

005046 




CLR 

-(SP) 

.‘CLEAR THE RUBOUT KEY 

062266 

012703 

062516 


1$: NOV 

#$TTYIN,R3 

.’GET ADDRESS 

062272 

022703 

062526 


2$: CMP 

#$TTVIN*8. ,R3 ; 

.’BUFFER FULL? 

062276 

101456 




BLOS 

4$ 

;BR IF YES 

062300 

104411 




RDCHR 


;G0 READ ONE CHARACTER FROM THE TTY 

062302 

112613 




N0V8 

(SP)+. (R3) 

;GET CHARACTER 

062304 

122713 

000177 


10$: CMPS 

#177, (R3) ; 

;IS IT A RUBOUT 

062310 

001022 




BNE 

5$ 

;BR IF NO 

062312 

005716 




TST 

(SP) 

;IS THIS THE FIRST RUBOUT? 

062314 

001007 




BNE 

6$ 

;BR IF NO 

062316 

112737 

000134 

062514 


MOVB 

#'\,9$ 

.’TYPE A BACK SLASH 

062324 

104401 

062514 



TYPE 

,9$ 


062330 

012716 

177777 



NOV 

#-1 , (SP) 

.-SET THE RUBOUT KEY 

062334 

005303 



6$: DEC 

R3 

.’BACKUP BY ONE 

062336 

020327 

062516 



CMP 

R3,#$TTYIN 

.’STACK EMPTY? 

062342 

103434 




BLO 

4$ 

;BR IF YES 

062344 

111337 

062514 



«OVB 

(R3),9$ 

.’SETUP TO TYPEOUT THE DELETED CHAR. 

062350 

104401 

062514 



TYPE 

,9$ 

;G0 TYPE 

062354 

000746 




BR 

H 

;G0 READ ANOTHER CHAR. 

062356 

005716 



5$: TST 

(SP) 

.‘RUBOUT KEY SET? 


001406 




SEQ 

7$ 

,*BR IF NO 

062362 

112737 

000134 

062514 


MOVB 

#'\,9$ 

.-TYPE A BACK SLASH 

062370 

104401 

062514 



TYPE 

,9$ 


062374 

005016 




CLR 

(SP) 

.CLEAR THE RUBOUT KEY 

062376 

122713 

000025 


7$: CNP8 

#25, (R3) 

,*1S CHARACTER A CTRL U? 

062402 

001003 




BNE 

8$ 

;BR IF NO 



3 


SEQ 0242 


;;TYPE A CONTROL 'V 
;;G0 START OVER 
; ;IS CHARACTER A "*R"? 
.'.'BRANCH IF NO 
.-.‘CLEAR THE CHARACTER 
;;TYPE A "CR" l ’IF" 

.-.-TYPE THE INPUT STRING 
;;GO PICKUP ANOTHER CHACTER 
.-.'TYPE A '?’ 


; .'CLEAR THE BUFFER AND LOOP 
.-.-ECHO THE CHARACTER 


;; CHECK FOR RETURN 
.-.-LOOP IF NOT RETURN 
.'.'CLEAR RETURN (THE 15) 

.'.'TYPE A LINE FEED 

;; CLEAN RUBOUT KEY FROM THE STACK 

* 'RESTORE R3 

••ADJUST THE STACK AND PUT ADDRESS OF THE 
;; FIRST ASCII CHARACTER ON IT 


* 'RETURN 

••STORAGE FOR ASCII CHAR. TO TYPE 
;; TERMINATOR 

;; RESERVE 8 BYTES FOR TTY INPUT 
;; CONTROL "C" 

;; CONTROL ’IT 
;; CONTROL "G" 


SET THE CONTROL-C FLAG 
DOING ANY TESTS ? 

8 R IF YES 

NO— RESPOND TO *C 

EXIT FROM INTERRUPT 


L 
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READ AN OCTAL NUMBER FROM THE TTY 

1 .S8TTL READ AN OCTAL NUMBER FROM THE TTY 

; ; *************************************************************** 

.-•THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
;* CHANGE IT TO BINARY. 

.-•CALL: 

;* RDOCT ;;READ AN OCTAL NUMBER 

;* RETURN HERE ;;LOU ORDER BITS ARE ON TOP OF THE STACK 

;* ; .’HIGH ORDER BITS ARE IN SHIOCT 


062612 

011646 


SRDOCT: MOV 

(SP).-(SP) 

; .-PROVIDE SPACE FOR THE 

062614 

016666 

000004 

000002 MOV 

4(SP),2(SP) 

;; INPUT NUMBER 

062622 

010046 


MOV 

RO.-(SP) 

;;PUSH RO ON STACK 

062624 

010146 


MOV 

R1,-(SP) 

;;PUSH R1 ON STACK 

062626 

010246 


MOV 

R2,-(SP) 

;;PUSH R2 ON STACK 

062630 

104412 


1$: RD( IN 


.-.-READ AN ASCIZ LINE 

062632 

012600 


MOV 

(SP) + .R0 

.-.-GET ADDRESS OF 1ST CHARACTER 

062634 

005001 


CLR 

R1 

.-.-CLEAR DATA WORD 

062636 

005002 


CLR 

R2 


062640 

112046 


2$: MOVB 

(RO)+,-(SP) 

;; PICKUP THIS CHARACTER 

062642 

001412 


BEQ 

3$ 

; ; IF ZERO GET OUT 

062644 

006301 


ASL 

R1 

; ; *2 

062646 

006102 


ROL 

R2 


062650 

006301 


ASL 

R1 

; ; *4 

062652 

006102 


ROL 

R2 


062654 

006301 


ASL 

R1 

; ; *8 

062656 

006102 


ROL 

R2 


062660 

042716 

177770 

BIC 

#*C7, (SP) 

;; STRIP THE ASCII JUNK 

062664 

062601 


ADD 

(SPH, R1 

.-.-ADD IN THIS DIGIT 

062666 

000764 


BR 

2S 

.-.-LOOP 

062670 

005726 


3$: TST 

(SPH 

.-.-CLEAN TERMINATOR FROM STACK 

062672 

010166 

000012 

MOV 

R1,12(SP) 

.-.-SAVE THE RESULT 

062676 

010237 

062712 

MOV 

R2. SHIOCT 


062702 

012602 


MOV 

(SP)+,R2 

.-.-POP STACK INTO R2 

062704 

012601 


MOV 

(SP)+, R1 

.-.-POP STACK INTO R1 

062706 

012600 


MOV 

(SP) +.R0 

.-.-POP STACK INTO RO 

062710 

000002 


RTI 


;; RE TURN 

062712 

000000 


SHIOCT: .WORD 

0 

.-.-HIGH ORDER BITS GO HERE 
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.S8TTL TRAP DECODER 


SEO Qc*. 


062714 

062720 

062724 

062730 

062732 

062734 

062740 

062742 

062744 

062746 

062752 


016646 

042716 

012746 

000002 

010046 

016600 

005740 

111000 

006300 

016000 

000200 


000002 

000020 

062732 


000002 


062766 


•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE , 7RAP• , INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 


STRAP: 

MOV 

2(SP).-(SP) 

BIC 

#20, (SP) 


MOV 

#1S,-(SP) 


RTI 


IS: 

MOV 

RO.-(SP) 


MOV 

2 (SP) ,R0 


TST 

-(RO) 


MOVB 

(RO).RO 


ASL 

RO 


MOV 

STRPAD(RO) ,ro 


RTS 

RO 


ASSUME THE STATUS OF 
THE CALLER— DO NOT ALLOW 
T-BIT TRAPS 
SET THE NEW STATUS 
SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 


;;THIS IS USE TO HANDLE THE ,, GETPRI'' MACRO 


062754 011646 
062756 016666 000004 
062764 000002 


062766 

062770 

062772 

062774 

062776 

063000 

063002 


063006 

063010 

063012 

063014 

063016 

063020 


000002 


062754 

056560 

056356 

056332 

056372 

056106 

056032 


063004 061720 


061630 

062172 

062262 

062612 

055736 

055774 


STRAP2: MOV 
MOV 
RTI 


<SP) ? -(SP) 

4 (SP> ,2(SP) 


MOVE THE PC DOWN 
MOVE THE PSW DOWN 
RESTORE THE PSW 


.SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.-•BY THE "TRAP*’ INSTRUCTION. 


; ROUTINE 

iTRPAD: .WORD 
STY PE 
STYPOC 
STYPOS 
STYPON 
STYPDS 
STYP8N 


STRAP2 

;;CALL=TYPE 

;;CALL=TYPOC 

;; CALL-TYPOS 

;;CALL=TYPON 

;;CALL*TYPDS 

;;CALL=TYPBN 


SGTSWR ; 

SCKSWR ; 
SRDCHR ; 
SRDLIN ; 
SRDOCT ; 
SSAVREG ; 
SRESREG ; 


TRAP+K 104401) 
TRAP+2( 104402) 
TRAP+3 ( 1 04403) 
TRAP+4C 104404) 
TRAP+5( 104405) 
TRAP+6C 104406) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 

TYPE BINARY (ASCII) NUMBER 


CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 

CALL s CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
CALL=RDCHS TRAP+11 (104411) TTY TYPEIN CHARACTER ROUTINE 
CALL S RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
CALL=RDOCT TRAP+13( 104413) READ AN OCTAL NUMBER FROM TTY 

CALL=SAVREG TRAP*14(104414) SAVE R0-R5 SOUTINE 
CALL=RESREG TRAP-M 5 ( 1 0441 5) RESTORE R0-R5 ROUTINE 


L 


SEO 0245 


CZRNEAO RM80 FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PA6E 47 
POWER DOWN AND UP ROUTINES 


N 3 


. S8TTL POWER DOWN AND UP ROUTINES 


063022 

063030 

063036 

063040 

063042 

063044 

063046 

063050 

063052 

063056 

063062 

063070 

063072 


063074 

063102 

063106 

063112 

063116 

063120 

063124 

063126 

063130 

063132 

063134 

063136 

063140 

063146 

063154 

063156 

063160 

063162 

063164 

063166 

063170 


012737 

012737 

010046 

010146 

010246 

010346 

010446 

010546 

017746 

010637 

012737 

000000 

000776 


012737 

013706 

005037 

005237 

001375 

012677 

012605 

012604 

012603 

012602 

012601 

012600 

012737 

012737 

104401 

063170 

000002 

000000 

000776 

000000 

015 


063162 

000024 

SPWRDN: MOV 

fSILLUP.WPWRVEC 

;;SET FOR FAST UP 

000340 

000026 

MOV 

#340,a#PWRVEC+2 

;PRI0:7 



MOV 

RO, -(SP) 

.-PUSH RO ON STACK 



MOV 

R1,-(SP) 

.-PUSH R1 ON STACK 



MOV 

R2,-(SP) 

.-PUSH R2 ON STACK 



MOV 

R3,-(SP) 

.•PUSH R3 ON STACK 



MOV 

R4,-(SP) 

.-PUSH R4 ON STACK 



MOV 

R5.-(SP) 

.‘PUSH R5 ON STACK 

116076 


MOV 

iSUR.-(SP) 

.’PUSH 8SWR ON STACK 

063166 


MOV 

SP.SSAVR6 

.•SAVE SP 

063074 

000024 

MOV 

#$PWRUP.i#PWRVEC 

;;SET UP VECTOR 



HALT 





BR 

.-2 

;HANG UP 


*************************************************************** 


063162 

000024 

;rufcn 

SPWRUP : 

jr nuuii 

MOV 

#$ILLUP.a#PWRVEC 

;;SET FOR FAST DOWN 

063166 



MOV 

SSAVR6.SP 

;GET SP 

063166 



CLR 

SSAVR6 

.•WAIT LOOP FOR THE TTY 

063166 


1$: 

INC 

SSAVR6 

.•WAIT FOR THE INC 




BNE 

IS 

;0F WORD 

116030 



MOV 

(SP) +.9SWR 

.-POP STACK INTO 3SWR 




MOV 

(SP) +.R5 

.-POP STACK INTO R5 




MOV 

(SP)+.R4 

.-POP STACK INTO R4 




MOV 

(SP) +.R3 

.-POP STACK INTO R3 




MOV 

(SP)+,R2 

.-POP STACK INTO R 2 




MOV 

(SP)*. R1 • 

.-POP STACK INTO R1 




MOV 

(SP) +.R0 

;POP STACK INTO RO 

063022 

000024 


MOV 

#$PWRDN.a#PWRVEC 

; ; SET UP THE POWER DOWN VECTOR 

000340 

000026 

* 

MOV 

#340,a#PWRVEC*2 

;PRI0:7 




TYPE 


REPORT THE POWER FAILURE 



SPWRMG : 

.WORD 

SPOWER 

.•POWER FAIL MESSAGE POINTER 



- 

RTI 





SILLUP: 

HALT 


;THE POWER UP SEQUENCE WAS STARTED 




BR 

.-2 

; BEFORE THE POWER DOWN WAS COMPLETE 



SSAVR6: 

0 


;PUT THE SP HERE 

012 

120 

SPOWER: 

.ASCIZ 

<1 5><1 2>' POWER 



f 



B 4 
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APT COMMUNICATIONS ROUTINE 


.S8TTL APT COMMUNICATIONS ROUTINE 


C63200 

112737 

000001 

063444 

iATYl : 

M0V8 

063206 

112737 

000001 

063442 

$ATY3: 

MOVB 

063214 

000403 




BR 

063216 

112737 

000001 

063444 

SATV4: 

MOVB 

063224 




$ATYC: 


063224 

010046 




NOV 

063226 

010146 




MOV 

063230 

105737 

063442 



TSTB 

063234 

001450 




8EQ 

063236 

122737 

000001 

001242 


CMPB 

063244 

001031 




BNE 

063246 

132737 

000100 

001243 


BITB 

063254 

001425 




BEO 

063256 

017600 

000004 



MOV 

063262 

062766 

000002 

000004 


ADD 

063270 

005737 

001222 


IS: 

TST 

063274 

001375 




BNE 

063276 

010037 

001236 



MOV 

063302 

105720 



2S: 

TSTB 

063304 

001376 




BNE 

063306 

163700 

001236 



SUB 

063312 

006200 




ASR 

063314 

010037 

001240 



MOV 

063320 

012737 

000004 

001222 


MOV 

063326 

000413 




BR 

063330 

017637 

000004 

063354 

3$: 

MOV 

063336 

062766 

000002 

000004 


ADD 

063344 

013746 

177776 



MOV 

063350 

004737 

056560 



JSR 

063354 

000000 



4$: 

.WORD 

063356 




5$: 


063356 

105737 

063444 


10$: 

TSTB 

063362 

001416 




BEQ 

063364 

005737 

001242 



TST 

063370 

001413 




BEQ 

063372 

005737 

001222 


11$: 

TST 

063376 

001375 




BNE 

063400 

017637 

000004 

001224 


MOV 

063406 

062766 

000002 

000004 


ADD 

063414 

005237 

001222 



INC 

063420 

105037 

063444 


12$: 

CLRB 

063424 

105037 

063443 



CLRB 

063430 

105037 

063442 



CLRB 

063434 

012601 




MOV 

063436 

012600 




MOV 

063440 

000207 




RTS 

063442 

000 



SMFLG: 

.BYTE 

063443 

000 



SLFLG: 

.BYTE 

063444 

000 



SFFLG: 

.BYTE 






.EVEN 


000200 



APTSIZE 

= 200 


000001 



APTENV 

= 001 


000100 



AP T SPOOL = 100 


000040 



APTCSUP 

= 040 


#1 .SFFLG 
#1 .SMFLG 
SATYC 
#1 .SFFLG 

RO.-(SP) 

R1,-(SP) 

SMFLG 

5 $ 

#APTENV,$ENV 

3$ 

#APT SPOOL , SENVM 

3$ 

®4(SP),R0 
#2. 4(SP> 
SMSGTYPE 

1$ 

RO.SMSGAD 

<r6)+ 

2 $ 

SMSGAO.RO 

RO 

RO.SMSGLGT 
#4. SMSGTYPE 

5S 

84CSPJ.4S 
#2.4 (SP) 
177776.-(SP) 
PC.STYPE 
0 

SFFLG 

12S 

SENV 

12S 

SMSGTYPE 

IIS 

94 (SP). SFATAL 
#2.4 (SP) 
SMSGTYPE 
SFFLG 
SLFLG 
SMFLG 
(SP;+, R1 
(SP)*.RO 
PC 
0 
0 
0 


;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 

;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;; SHOULD TYPE A MESSAGE? 

. . re unT- M 

••OPERATING UNDER APT? 

; ; I F NOT: BR 

;; SHOULD SPOOL MESSAGES? 

;;IF NOT: BR 
;;GET MESSAGE ADDR. 

; ;BUMP RETURN ADDR. 
;;SEE IF DONE W/ LAST XMISSION? 
; ; IF NOT: WAIT 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 

; ; SUB START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
;;BUMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
; ; CALL TYPE MACRO 


.•SHOULD REPORT FATAL ERROR? 
;IF NOT: BR 
.•RUNNING UNDER APT? 

;IF NOT: BR 
.•FINISHED LAST MESSAGE? 

; IF NOT: WAIT 
.-GET ERROR # 

: ■BUMP RETURN ADDR. 
.-TELL A^t TO TAKE ERROR 
.•CLEAR FATAL FLAG 
.•CLEAR LOG FLAG 
.•CLEAR MESSAGE FLAG 
.-POP STACK INTO R1 
.-POP STACK INTO RO 
.•RETURN 
.-MESSG. FLAG 
;LOG FLAG 
.•FATAL FLAG 


i. 
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CONSOLE 

MESSAGES 











.S8TTL CONSOLE MESSAGES 

2 

3 

063446 


103 

Id 

SCTMS6: .ASCIZ 

<CRLF>3CANN0T RECOVER THE BAD SECTOR FILES ON THIS DEVICES 

4 

063532 

075 

000 


EQUALS: .ASCIZ 

s=a 

5 

063534 


114 

114 

ALL: .ASCIZ 

SALL8<CRLF> 

6 

063541 


077 

040 

QUES: .ASCIZ 

a ? a 

7 

063545 


C40 

000 

COMMA: .ASCIZ 

a. a 

8 

063550 

Elm 

124 

117 

HSHELP: .ASCII 

<CRLF>8T0 ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISKS 

9 

063636 


104 

125 

.ASCII 

<CRLF>aDURING ERROR FREE OPERATION, THIS PROGRAM SHOULD 8E8 

10 

063724 

200 

102 

105 

.ASCII 

<CRLF>S3E HALTED 3V TYPING A (*C> CONTROL C. AS A RESULT.8 

11 

064012 


124 

110 

•ASCII 

<CRLF>aTHE PROGRAM WILL BE HALTED UHEN THE DRIVE UNDER TESTa 

12 

064100 


110 

101 

.ASCII 

<CRLF>aHAS COMPLETED TESTING. d 

13 

064127 




.ASCII 

<CRLF> 

14 

064130 


124 

131 

.ASCIZ 

<CRLF>aTYPE HELP TEXT (L) N ? 3 

15 

064161 


122 

115 

CNSL01: .ASCIZ 

<CRLF>3RMCSl=a 

16 

064171 


114 

111 

CNSL02: .ASCIZ 

a LIMITS - L0= 160000, HI= 17XXXX3<CRLF> 

17 

064233 


115 

126 

CNSL03: .ASCIZ 

aRMVEC=a 

18 

064242 


114 

111 

CNSL04: .ASCIZ 

a LIMITS - L0= 0, HI= 1000a<CRLFXLF> 

19 

064276 


124 

131 

CNSL07: .ASCII 

<CRLF>3TYPE ‘'A’* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)3 

20 

064363 


101 

116 

.ASCIZ 

<CRLF>8AND TERMINATE INPUT WITH A CARRIAGE RETURN. a 

21 

064440 




CNSL08: .ASCII 

<CRLF> 

22 

064441 


077 

111 

CNSL09: .ASCIZ 

a 7ILLE6AL INPUT3<CRLF> 

23 

064462 


104 

122 

RSDRVS: .ASCIZ 

<CRLF>/DRIVE(S): / 

24 

064476 


122 

111 

MSGDRV: .ASCIZ 

/DRIVE/ 

25 

064504 


125 

116 

SYSTAT: .ASCIZ 

<CRLF>/UNIT STATUS:/ 

26 

064522 

122 

115 

070 

SRM80: .ASCIZ 

/RM80/ 

27 

064527 

040 

116 

117 

NOTRM: .ASCIZ 

/ NOT AN RM80/ 

28 

064544 

040 

114 

117 

LODEV: .ASCIZ 

/ LOAD DEVICE/ 

29 

064561 

040 

116 

117 

NOTPRS: .ASCIZ 

/ NOT PRESENT/ 

30 

064576 

040 

116 

117 

NOTAVL: .ASCIZ 

/ NOT AVAILABLE/ 

31 

064615 

040 

117 

106 

UNTOFF: .ASCIZ 

/ OFFLINE/ 

32 

064626 

040 

117 

116 

UNTON: .ASCIZ 

/ ONLINE/ 

33 

064636 


104 

122 

DRIVES: .ASCIZ 

<CRLF>/DRIVE(S) TO BE TESTED/ 

34 

064665 

116 

117 

116 

NONE: .ASCIZ 

/NONE/ 

35 

064672 

116 

000 


N: .ASCIZ 

/N/ 

36 

064674 

131 

000 


Y: .ASCIZ 

/Y/ 

37 

064676 

040 



BLNKS4: .ASCII 

/ / 

38 

064677 

040 



BLNKS3: .ASCII 

/ / 

39 

064700 

040 



8LNKS2: .ASCII 

/ / 

40 

064701 

040 

000 


BLNKS1 : .ASCIZ 

/ / 

41 





.EVEN 



SEQ 0247 
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FUNCTION CODE TABLE 


D 4 


SEQ 0248 


1 .SBTTL FUNCTION CODE TABLE 

;THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
;EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 

; ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

; IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED. OTHERWISE. 
;BIT 15 IS ZERO. INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
.-NOTE THAT ATA NAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
;IT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 

; WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 

; OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

; IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

; WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
;THE WRITE ERRORS WHICH ARE ENABLED ARE 'VLE", *VCF", "DPE”. "UPE”. 

; IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;I F INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 

; AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 

.COMMAND. THE ERRORS ENABLED BY THIS BIT ARE "TRE". 'DLT”, ’ XEM’ 
;'MXF", •■LBT ,, # AND "AOE”. 

BIT 08 IS NOT USED. 

; HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
.-HEADER ERRORS INCLUDE 'ttCRC", ’BCE", "FER", AND ’BSE". 

; ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT 
.-COMMAND. THESE ERRORS INCLUDE ’MDPE", "DCK", AND "ECH”. 

; BIT 05 IS NOT USED. 

; BIT 04 IS NOT USED. 

; BIT 03 IS NOT USED. 

; BIT 02 IS NOT USED. 

; BIT 01 IS NOT USED. 

; ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 

064704 FNCDT8: .-FUNCTION CODE TABLE 

064704 020000 .WORD OPI ;NOP 


E 4 


SEO 0249 


CZRNEAO RH80 FCTNL PT2 
FUNCTION CODE TABLE 


58 064706 

59 064710 

60 064712 

61 064714 

62 064716 

63 064720 

64 064722 

65 064724 

66 064726 

67 064730 

68 064732 

69 064734 

70 064736 

71 064740 

72 064742 

73 064744 

74 064746 

75 064750 

76 064752 

77 064754 

78 064756 

79 064760 

80 064762 

81 064764 

82 064766 

83 064770 

84 C64772 

85 064774 

86 064776 

87 065000 

88 065002 


130001 

132000 

130000 

020000 

030000 

130000 

130000 

020000 

020000 

130001 

130001 

132000 

130001 

130001 

130001 

130001 

130001 

130001 

130001 

073300 

073300 

130001 

130001 

037200 

037000 

130001 

130001 

033300 

033300 

130001 

13 r Q01 


HACRO V04.00 28-JAN-82 

16:38:23 PA6E 50-1 

.WORD 

OPI JATA! ILF JIVC 

.WORD 

ATAJOPI JIVCJIAE 

.WORD 

ATAJOPI JIVC 

.WORD 

0P1 

.WORD 

OPI.'IVC 

.WORD 

OPI JATA! 2VC 

.WORD 

OPI JATA JIVC 

.WORD 

DPI 

.WORD 

CPI 

.WORD 

OPI JATA! ILF JIVC 

.WORD 

OPI iATA.'ILF !IVC 

.WORD 

ATAJOPI JIVCJIAE 

.WORD 

OPI IATA.'ILF! I VC 

.WORD 

OPI JATA! ILF JIVC 

.WORD 

OPI JATAJILF ! I VC 

.WORD 

OPI !ATA!ILF JIVC 

.WORD 

OPI IATA.'ILF !IVC 

.WORD 

OPI !ATA! ILF JIVC 

.WORD 

OPI JATA! ILF JIVC 

.WORD 

WCE ! OPI .' I VC ! I AE ! AOE ! HCE ! ECH 

.WORD 

WCE J OPI ! I VC ! IAE ! AOE JHCE ! ECH 

.WORD 

OPI JATA! ILF JIVC 

.WORD 

OPI JATA! ILF JIVC 

.WORD 

OPI ! I VC JWLE! IAE! AOE JHCE 

.WORD 

OPI !IVC!WLE!IAE!AOE 

.WORD 

OPI JATA! ILF JIVC 

.WORD 

OPI JATAJILF JIVC 

.WORD 

OPI J I VC ! I AEJ AOE JHCE! ECH 

.WORD 

OPI ! IVCJIAEJAOE JHCE! ECH 

.WORD 

OPI JATAJILF JIVC 

.WORD 

OPI JATAJILF JIVC 


ILLEGAL FUNCTION (2) 

SEEK 

RECALIBRATE 
DRIVE CLEAR 
RELEASE 
OFFSET 

RETURN TO CENTERLINE 
READ IN PRESET 
PACK ACKNOWLEDGE 
ILLEGAL FUNCTION (24) 
ILLEGAL FUNCTION (26) 

SEARCH 

ILLEGAL FUNCTION (32) 
ILLEGAL FUNCTION (34) 
ILLEGAL FUNCTION (36) 
ILLEGAL FUNCTION (40) 
ILLEGAL FUNCTION (42) 
ILLEGAL FUNCTION (44) 
ILLEGAL FUNCTION (46) 

WRITE CHECK DATA 
WRITE CHECK HEADER AND DATA 
ILLEGAL FUNCTION (54) 
ILLEGAL FUNCTION (56) 

WRITE DATA 

WRITE HEADER AND DATA 
ILLEGAL FUNCTION (64) 
ILLEGAL FUNCTION (66) 

READ DATA 

READ HEADER AND DATA 
ILLEGAL FUNCTION (74) 
ILLEGAL FUNCTION (76) 


f 4 


CZRNEAO RM80 FCTNL PT2 
ATTENTION (ATA) TABLE 

1 

*> 

MACRO V04.00 28- JAN-82 16:38:23 PA6E 51 

.S8TTL ATTENTION (ATA) TABLE 

3 065004 

001 

ATNT8L: .BYTE 

1 . 

4 065005 

002 

•BYTE 

2. 

5 065006 

004 

.BYTE 

4. 

6 065007 

010 

.BYTE 

8. 

7 065010 

020 

.BYTE 

16. 

8 065011 

040 

.BYTE 

32. 

9 065012 

100 

.8YTE 

64. 

10 065013 

200 

.BYTE 

128. 


SEQ 0250 







G 4 
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.00 28-JAN-82 
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SEQ 0251 

DATA PATTERN TABLE 







1 


.S8TTL 

DATA PATTERN TABLE 




2 

3 065014 


R60TPT 

; 





4 065014 


NIXED: 






5 065014 

GOOOOO 


.WORD 

0. 




6 065016 

000001 


.WORD 

1. 




7 065020 

000003 


.WORD 

3. 




8 065022 

000007 


.WORD 

7. 




9 065024 

000017 


.WORD 

15. 




10 065026 

000037 


.WORD 

31. 




11 065030 

000077 


.WORD 

63. 




12 065032 

000177 


.WORD 

127. 




13 065034 

000377 


.WORD 

255. 




14 065036 

000777 


.WORD 

511. 




15 065040 

001777 


.WORD 

1023. 




16 065042 

003777 


.WORD 

2047. 




17 065044 

007777 


.WORD 

4095. 




18 065046 

017777 


.WORD 

8191. 




19 06505C 

037777 


.WORD 

16383. 




20 065052 

077777 


.WORD 

32767. 




21 065054 

177777 

ONES: 

.WORD 

65535. 




22 065056 

177777 


.WORD 

65535. 




23 065060 

077777 


.WORD 

32767. 




24 065062 

037777 


.WORD 

16383. 




25 065064 

017777 


.WORD 

8191. 




26 065066 

007777 


.WORD 

4095. 




27 065070 

003777 


.WORD 

2047. 




28 065072 

001777 


.WORD 

1023. 




29 065074 

000777 


.WORD 

511. 




10 065076 

000377 


.WORD 

255. 




31 065100 

000177 


.WORD 

127. 




32 065102 

000077 


.WORD 

63. 




33 065104 

000037 


.WORD 

31. 




34 065106 

000017 


.WORD 

15. 




35 065110 



.WORD 

7. 




36 065112 

iTOi 


.WORD 

3. 




37 065114 



.WORD 

1. 




38 065116 

i iTtiiii 

ZEROS: 

.WORD 

0. 




39 065120 

i lit 


.WORD 

0. 




40 065122 

• III ijii m- --l. “'v 


.WORD 

1. 




41 065124 

000002 


.WORD 

2. 




42 065126 



.WORD 

4. 




43 065130 

000010 


.WORD 

8. 




44 065132 

000020 


.WORD 

16. 




45 065134 

000040 


.WORD 

32. 




46 065136 

000100 


.WORD 

64. 




47 065140 

000200 


.WORD 

128. 




48 065142 

000400 


.WORD 

256. 




49 065144 

001000 


.WORD 

512. 




50 065146 

002000 


.WORD 

1024. 




51 065150 



.WORD 

2048. 




52 065152 

010000 


.WORD 

4096. 




53 065154 

020000 


.WORD 

8192. 




54 065156 

040000 


.WORD 

16384. 




55 065160 



.WORD 

32768. 




56 065162 

100000 


.WORD 

32768. 




57 065164 

u 

040000 


.WORD 

16384. 





H 4 
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DATA PATTERN TABLE 



58 

065166 

020000 

.WORD 

8192. 

59 

065170 

01 0000 

.WORD 

4096. 

60 

065172 

004000 

.WORD 

2048. 

61 

065174 

002000 

.WORD 

102*. 

62 

065176 

001 000 

.WORD 

512. 

63 

065200 

000400 

.WORD 

256. 

64 

065202 

000200 

.WORD 

128. 

65 

065204 

000100 

.WORD 

64* 

66 

065206 

000040 

.WORD 

32. 

67 

065210 

000020 

.WORD 

16. 

68 

065212 

000010 

.WORD 

8. 

69 

065214 

000004 

.WORD 

4. 

70 

065216 

000002 

.WORD 

2. 

71 

065220 

000001 

.WORD 

1 . 

72 

065222 

000000 

.WORD 

0 . 

73 

065224 

177777 

.WORD 

65535. 

74 

065226 

177776 

.WORD 

65534. 

75 

065230 

177774 

.WORD 

65532. 

76 

065232 

177770 

.WORD 

65528. 

77 

065234 

177760 

.WORD 

65520. 

78 

065236 

177740 

.WORD 

65504. 

79 

065240 

177700 

.WORD 

65472. 

CO 

065242 

177600 

.WORD 

65408. 

81 

065244 

177400 

.WORD 

65280. 

82 

065246 

177000 

.WORD 

65024. 

83 

065250 

176000 

.WORD 

64512. 

84 

065252 

174000 

.WORD 

63488. 

85 

065254 

170000 

.WORD 

61440. 

86 

065256 

160000 

.WORD 

57344. 

87 

065260 

140000 

.WORD 

49152. 

88 

065262 

100000 

.WORD 

32768. 

89 

065264 

000000 

.WORD 

0 . 

90 

065266 

000000 

.WORD 

0 . 

91 

065270 

100000 

.WORD 

32768. 

92 

065272 

140000 

.WORD 

49152. 

93 

065274 

160000 

.WORD 

57344. 

94 

065276 

170000 

.WORD 

61440. 

95 

065300 

174000 

.WORD 

63488. 

96 

065302 

176000 

.WORD 

64512. 

97 

065304 

177000 

.WORD 

65024. 

98 

065306 

177400 

.WORD 

65280. 

99 

065310 

177600 

.WORD 

65408. 

100 

065312 

177700 

.WORD 

65472. 

101 

065314 

177740 

.WORD 

65504. 

102 

065316 

177760 

.WORD 

65520. 

103 

065320 

177770 

.WORD 

65528. 

104 

065322 

177774 

.WORD 

65532. 

105 

065324 

177776 

.WORD 

65534. 

106 

065326 

177777 

.WORD 

65535. 

107 

065330 

125252 EARLY 

: .WORD 

43690. 

108 

065332 

152525 

.WORD 

43690. /2 

109 

110 

065334 

065336 

125252 

177777 

.WORD 

.WORD 

43690. 
6553i . 

111 

065340 

177776 

.WORD 

65534. 

112 

065342 

177775 

.WORD 

65533. 

113 

065344 

177773 

.WORD 

65531 . 

114 

065346 

177767 

.WORD 

65527. 
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115 065350 

116 065352 

117 065354 

118 065356 

119 065360 

120 065362 

121 065364 

122 065366 

123 065370 

124 065372 

125 065374 

126 065376 

127 065400 

128 065402 

129 065404 

130 065406 

131 065410 

132 065412 

133 065414 

134 065416 

135 065420 

136 065422 

137 065424 

138 065426 

139 065430 

140 065432 

141 065434 

142 065436 

143 065440 

144 065442 


SEO 0253 


177757 

.WORD 

65519. 

177737 

.WORD 

65503. 

177677 

.WORD 

65471 . 

177577 

.WORD 

65407. 

177377 

.WORD 

65279. 

176777 

.WORD 

65023. 

175777 

.WORD 

6451 1 . 

173777 

.WORD 

63487 . 

167777 

.WORD 

61 439. 

157777 

.WORD 

57343. 

137777 

.WORD 

49151. 

077777 

.WORD 

32767. 

077777 

.WORD 

32767 . 

137777 

.WORD 

49151. 

157777 

.WORD 

57343. 

167777 

.WORD 

61439. 

173777 

.WORD 

63487 . 

175777 

.WORD 

64511. 

176777 

.WORD 

65023. 

177377 

.WORD 

65279. 

177577 

.WORD 

65407. 

177677 

.WORD 

65471 . 

177737 

.WORD 

65503. 

177757 

.WORD 

65519. 

177767 

.WORD 

65527. 

177773 

.WORD 

65531 . 

177775 

.WORD 

65533. 

177776 

.WORD 

65534. 

177777 

.WORD 

65535. 


ENRGDT: 
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SEO 0254 


.S8TTL ERROR MESSAGE TABLE 


3 065442 

4 065446 

5 065454 

6 065462 

7 065470 

8 065476 

9 065504 

10 065512 

11 065516 

12 065522 

13 065530 

14 065542 

15 065550 

16 065556 

17 065566 

18 065576 

19 065606 

20 065616 

21 065626 

22 065636 

23 065646 

24 065656 

25 065666 

26 065676 

27 065706 

28 065716 

29 065726 

30 065736 

31 065746 

32 065756 

33 065766 

34 065776 

35 066004 

36 066014 

37 066026 

38 066036 

39 066046 

40 066056 

41 066066 

42 066074 

43 066104 

44 066116 

45 066134 

46 066152 

47 066162 

48 066174 

49 066212 

50 066222 

51 066240 

52 066260 

53 066274 

54 066304 

55 066324 

56 066344 

57 066356 


072102 

072151 

072151 

072274 

072274 

077070 

075065 

072371 

072436 

072500 

072552 

072646 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

072500 

074403 

074571 

076362 

073705 

074630 

074656 

074704 

074335 

072552 

072500 

073705 

073705 

073734 

076317 

073763 

077070 

074106 

074512 

076250 

100270 

076455 

074011 

077027 

077027 


oocooo 

072166 

072231 

072324 

072436 

074317 

077115 

000000 

000000 

072511 

072563 

074317 

072731 

072754 

072770 

073016 

073045 

073062 

073124 

073153 

073202 

073230 

073301 

073330 

073357 

073405 

073434 

073462 

073511 

073540 

073613 

072706 

076271 

076372 

074023 

074023 

074023 

074023 

074317 

072574 

073656 

074023 

074023 

074023 

076334 

074525 

074535 

074453 

074106 

074453 

100313 

076520 

077515 

074761 

074761 


000000 

000000 

000000 

000000 

000000 

000000 


000000 

072574 

000000 

000000 

073103 

073114 

073114 

073103 

073103 

073114 

073114 

073114 

073114 

073114 

073114 

073114 

073114 

073114 

073114 

073114 

073114 

073114 

000000 

074577 

074525 

074577 

074577 

074577 

074577 

000000 

074271 

073114 

074453 

074453 

074453 

074023 

074453 

074453 

075265 

074453 

075265 

072706 

074500 

077676 

074525 

074525 


EMT1 : 
EM 72 : 
EMT3: 
EMT4: 
EMT5: 
EMT6: 
EMT7: 
EMTIO 
EMT11 
EMT12 
EMT13 
EMT14 
EMT15 
EMT16 
EMT17 
EMT20 
EMT21 
EMT22 
EMT23 
EMT24 
EMT25 
EMT26 
EMT27 
EMT30 
EMT31 
EMT32 
EMT33 
EMT34 
EMT35 
EMT36 
EMT37 
EMT40 
EMT41 
EMT42 
EMT43 
EMT44 
EMT45 
EMT46 
EMT47 
EMT50 
EMT51 
EMT52 
EMT53 
EMT54 
EMT55 
EMT56 
EMT57 
EMT60 
EMT61 
EMT62 
EMT63 
EMT64 
EMT65 
EMT66 
EMT67 


EMS1.0 

EMS2.EMS3.0 

EMS2.EMS4.0 

EMS5.EMS6.0 

EMS5.EMS10.0 

EMSIor .EMS64.0 

EMS110.EMS170.0 

EMS7.0 

EMSlO.0 

EMS1 1 .EMS12.0 

EMS13.EMS14 .EMS15.EMS16.0 

EMS17.EMS64.0 

EMS1 1 .EMS21 ,0 

EMS11,EMS22,EMS27,0 

EMS11 .EMS23.EMS30.0 

EMS 1 1 , EMS24 , EMS30 , 0 

EMS11 .EMS25.EMS27.0 

EMS1 1 .EMS26.EMS27.0 

EMS1 1 .EMS31 ,EMS*0,0 

EMS11 .EMS32.EMS30.0 

EMS1 1 .EMS33.EMS30.0 

EMS11.EMS34.EMS30.0 

EMS11 ,EMS35,EM$30,0 

EMS11 .EMS36.EMS30.0 

EMS11.EMS37.EMS30.0 

EMS11.EMS40.EMS30.0 

EMS11 .EMS41 .EMS30.0 

EMS11 ,EMS42,EMS30,0 

EMS1 1 .EMS43.EMS30.0 

EMS 1 1 , EMS44 , EMS30 , 0 

EMS11 .EMS45.EMS3O.0 

EMS66.EMS20.0 

EMS 75 f EMS1 4 1 .EMS76 , 0 

EMS144.EMS145.EMS72.EMS76.0 

EMS47,EMS53,EMS76,0 

EMS77-EMS53-EMS76.0 

EMS100,EMS53,EMS76,0 

EM$101,EMS53.EM$76,0 

EMS65.EMS64.0 

EMS13 # EMS15 # EMS63,0 

EMS1 1 ,EMS46,EM$30,EM$67-0 

EMS47,EMS53,EMS67,EMS1 1 5,EMS140,EMS141 .0 

EMS47,EMSS3,EMS67.EMS115.EMS141.EMS164,0 

EMS50.EMS53.EMS67.Q 

EMS 1 4$ . EMS 1 43,EMS53 . EMS67 , 0 

EMS5 1 -EMS 72 4 EMS67 4 EMS1 15, EMS50 , EMS 70 , 0 

EMS16>,EMS?$ X EMS67.0 

EMS56 ,EMS67 ,EMS1 1 5-EMS1 50.EMS1 52 , EMS70 ,0 

EMS71 x EMS56 , EMS67, EMS 1 1 5 .EMS 1 50. EMS1 52 . EMS72 . 0 

EMS140.EMS67.EMS1 15.EMS47.EMS70.0 

EMS225.EMS226.EMS20.0 

EMS150.EMS152,EMS70.EMS115,EMS56.EMS73.EMS67.0 

EMS52.EMS205.EMS214.EMS206.EMS115.EMS51.EMS72.0 

EMS165.EMS103.EMS72.EMS124.0 

EMS165.EMS103.EMS72.EMS171.0 
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SEQ 0255 


58 066370 

59 066400 

60 066410 

61 066426 

62 066444 

63 066454 

64 066474 

65 066504 

66 C 6651 6 

67 066534 

68 066552 

69 066562 

70 066574 

71 066612 

72 066622 

73 066632 

74 066652 

75 066664 

76 066672 

77 066700 

78 066714 

79 066716 

80 066726 

81 066756 

82 066746 

83 066756 

84 066766 

85 066776 

86 067006 

87 067016 

88 067026 

89 067040 

90 067052 

91 067064 

92 067076 

93 067110 

94 067122 

95 067134 

96 067146 

97 067160 

98 067170 

99 067200 

100 067210 

101 067220 

102 067230 

103 067240 

104 067250 

105 067260 

106 067270 

107 067300 

108 067312 

109 067324 

110 067342 

111 067560 

112 067372 

113 067404 

114 067416 


073656 

074512 

073705 

073705 

074106 

074512 

073734 

076317 

074571 

074571 

077070 

076440 

073763 

077027 

077027 

076362 

075065 

075211 

075211 

075065 

006000 

075342 

075405 

075442 

075505 

075537 

075602 

076213 

075704 

075742 

075342 

075405 

075442 

075505 

075537 

075602 

076213 

075704 

075742 

075342 

075442 

075342 

076213 

075505 

075537 

075602 

075742 

077144 

075704 

076250 

076317 

076362 

076342 

0 7 6455 

076440 

076440 

076672 


072706 

074704 

074525 

074525 

074023 

074106 

074023 

076334 

076271 

076455 

074535 

076474 

074552 

074656 

074630 

076372 

075125 

072231 

072166 

075265 


076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

076002 

0/6002 

076002 

075265 

075265 

076372 

076372 

076520 

076474 

076474 

076622 


076722 

076722 

076722 

076722 

076722 

076722 

076722 

074023 

076722 

076722 

076722 

074552 

076722 

076722 

076722 

074023 

075270 

000000 

000000 

075270 

076026 

076026 

076026 

076026 

076026 

076026 

076026 

076026 

076026 

076051 

076051 

076051 

076051 

076051 

076051 

076051 

076051 

§76051 

076113 

076113 

076166 

076166 

076166 

076166 

076166 

076166 

076166 

076166 

076271 

076334 

076421 

072706 

076566 

076566 

076622 

076655 


EMT70 

EMT71 

EMT72 

EMT73 

EMT74 

EMT75 

EMT76 

EMT77 

EMT100 

EMT101 

EMT102 

EMT103 

EMT104 

EMT105 

EMT106 

EMT107 

EMT110 

EMT111 

EMT112 

EMT113 

EMT114 

EMT115 

EMT116 

EMT117 

EWT120 

EMT121 

EMT122 

EWT123 

EMT124 

EMT125 

EMT126 

EMT1 27 

EMT130 

EMT131 

EMT132 

EMT133 

EMT134 

EHT135 

EMT1J4 

EMT137 

EMT140 

EMT141 

EMT142 

EMU 43 

EMT144 

EMT145 

EMT146 

EMT147 

EMT150 

EMT151 

EMT152 

EMT153 

EMT154 

EM7155 

EMT156 

EMT157 

EMT160 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


EMS46 , EMS20 . EMS 1 63.0 

EMS71,EMS101,EMS163,O 

EMS47,EMS72,EMS163,EMS115,EMS140.EMS141.0 

EMS47,EMS72,EMS163,EMS115,EMS141.EMS72,6 

EMS56,EMS53,EMS163,0 

EMS71,EMS56,EMS163,EMS115,EMS150,EMS152,EMS72,0 

EMS50 , EMS53 . EMS 1 63.0 

EMS142,EMS143,EMS53,EMS163,0 

EMS75,EMS141,EMS165,EMS115,EMS47,EMS70,0 

EMS75 , EMS1 50 , EMS 163, EMS1 15, EMS56 , EMS73 , 0 

EMS167,EMS73.EMS163,0 

EMS147,EMS15l,EMS74,EMS163,0 

EMS51.EMS74 J .EMS163,EMS115,EMS50,EMS70,0 

EMS 1 65, EMS1 00, EMS 165.0 

EMS165,EMS77.EMS163,0 

EMS144,EMS145,EMS53,EMS163.EMS115,EMS143,EMS70,0 

EMS110,EMS112,EMS116,EMS111 ,0 

EMS113,EMS4,0 

EMS113,EMS3.0 

EMS110,EMS115,EMS116,EMS117,EMS114,0 


EMS121, 
EMS122, 
EMS123, 
EMS124, 
EMS 125, 
EMS 126, 
EMS137, 
EMS 130, 
EMS131 , 
EMS 121, 
EMS1 
EMS1 . 
EMS 124, 
EMS125, 
EMS 126# 
EMS137, 
EMS130, 
EMS131 , 
EMS1 
EMS1 
EMS1 
EMS1 
EMS1 
EMS1 
EMS1 
EMS1_ . 
EMS171, 
EMS130, 
EMS140, 
EMS142, 
EMS144, 
EMS144, 
EMS150, 
EMS147, 
EMS147, 
EMS 161 , 


>i 

l 

I: 


EMS132 
EHS132 
EHS132 
EMS132 
EMS132 
EHS132 
EHS132 
EMS132 
EHS132 
EMS13 
EMS 13 
EMS13. 
EMS13L 
EMS 132 
EMS132 
EHS132 
EHS1 
EMS1 
EMS132 
EMS1 
EHS1 
EHS1 
EHS1 
EMS1 
EHS1 
EMS1 
EMS13 
EMS13 
EMS11 
EMS115 
EMS145 
EHS145 
EHS152 
EHS151 
EMS151 
EMS156 


EMS133,0 

EMS133,0 

EMS133,0 

EMS133,0 

EMS 133,0 

EMS133,0 

EMS133,0 

EMS133,0 

EMS133.0 

EMS134,EMS123,0 

EMS134,EMS123,0 

EMS134,EMS123,0 

EMS134,EMS123,0 

EMS134,EMS123,0 

EMS134,EMS123,0 

EMS134,EMS123,0 

EMS134,EMS123,0 

EMS134, EMS! 23,0 

EMS135,0 

EMS135,® 

EMS136,0 

EMS136,0 

EMS136,0 

EMS136,0 

EMS136.0 

EMS136,0 

EMS136,0 

EMS136,0 

EMS141,EMS70,0 

EMS143,EMS72.0 

EMS146,EMS115,EMS143,EMS72.0 

EMS20.EMS115.EMS143,EMS70,0 

EMS154,EMS153,0 

EMS154,EMS155,0 

EMS156,EMS157,0 

EMS 160,0 
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SEQ 0256 


115 067426 

116 067440 

117 067452 

118 067462 

119 067470 

120 067476 

121 067504 

122 067512 

123 067524 

124 067534 

125 067544 

126 067554 

127 067566 

128 067574 

129 067602 

130 067604 

131 067616 

132 067650 

133 067642 

134 067654 

135 067672 

136 067702 

137 067712 

138 067724 

139 067732 

140 067746 

141 067762 

142 067772 

143 070012 

144 070024 

145 070034 

146 070044 

147 070054 

148 070064 

149 070074 

150 070104 

151 070120 

152 070140 

153 070150 

154 070164 

155 070166 

156 070170 

157 070172 

158 070174 

159 070176 

160 070200 

161 070202 

162 070204 

163 070206 

164 070210 

165 070212 

166 070214 

167 070216 

168 070220 

169 070230 

170 070242 

171 070256 


073045 

073062 

073705 

073705 

074106 

073656 

100216 

077454 

077070 

077070 

077144 

077144 

075211 

077341 

OOOOCO 

077454 

077454 

077454 

077454 

076455 

073734 

074770 

074571 

074571 

073763 

076317 

073734 

074011 

074011 

074106 

073656 

073124 

073705 

074011 

074011 

074011 

100270 

072500 

100270 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

077070 

077070 

077070 

077630 


073103 

073103 

076722 

072706 

072706 

072706 

072706 

076271 

076566 

076566 

076002 

076002 

077317 

077356 

073763 

077467 

073734 

076334 

074552 

074761 

074535 

076271 

076455 

074525 

074023 

074761 

077515 

075320 

073114 

073114 

073114 

073114 

075320 

075320 

075320 

100342 

100353 

100313 


076622 

076622 

076250 

000000 

000000 

000000 

000000 

073114 

076640 

076602 

076026 

076051 

000000 

000000 

073114 

073114 

073114 

073114 

077424 

074525 

077424 

075265 

000000 

075265 

075265 

074023 

077043 

074106 

074317 

074317 

074317 

074317 

074630 

074271 

100270 

100353 

073114 

075265 


076002 077554 
076002 077601 
077612 077601 
077653 000000 


EMT161 
EMT162 
EMT163 
EMT164 
EMT165 
EMT166 
EMT167 
EMT1 70 
EHT171 
EMT1 72 
EMT173 
EMT174 
EMT175 
EMT176 
EMT177 
EMT200 
EMT201 
EMT202 
EMT203 
EMT204 
EMT205 
EMT206 
EMT207 
EMT210 
EMT211 
EMT212 
EMT213 
EMT214 
EMT215 
EMT216 
EMT217 
EMT220 
EMT221 
EMT222 
EMT223 
EMT224 
EMT225 
EHT226 
EMT227 
EMT230 
EMT231 
EMT232 
EMT233 
EMT234 
EMT235 
EMT236 
EMT237 
EMT240 
EMT241 
EMT242 
EMT243 
EMT244 
EMT245 
EMT246 
EMT247 
EMT250 
EMT251 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WOP* 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


EMS25 , EMS27. EMS1 56 . EMS 1 60 , 0 

EMS26.EMS27.EMS156.EMS160.0 

EMS47,EMS163.EMS140,0 

EN$47,EMS20,0 

EMS56.EMS20.0 

EMS46.EMS20.0 

EMS224.EMS20.0 

EMS203.EMS141 ,EMS30.EMS202.0 

EMS167,EMS154,EMS15?,0 

EMS167,EMS154,EMS155,C 

EMS171 ,EMS132,EMS133,0 

EMS171,EMS132,EMS134,EMS123,0 

EMS113,EMS177,0 

EMS200.EMS201.0 

EMS203.EMS51 .EMS30.EMS202.0 

EMS203 . EMS204 . EMS30 , EMS 202 . 0 

EMS203 , EMS50. EMS30 . EMS202 . 6 

EMS203.EMS1 43 , EMS30 , EMS202 , 0 

EMS150,EMS74,EMS202.EMS115,EMS152,EMS72,0 

EMS50.EMS103,EMS72.0 

EMS104,EMS73,EMS202,0 

EMS75.EMS141 ,EMS115,EMS140,0 

EMS75,EMS150,0 

EMS51 -EMS72.EMS1 1 5 ,EMS50, EMS70.0 
EMS1 42 , EMS53.EMS1 1 5 . EMS1 43 . EMS72 , 0 
EMS50,EMS103,EMS53,0 

EMS52 , EMS 205, EMS 1 66, EMS206. EMS1 1 5 , EMS51 , EMS 72 , 0 

EMS52 , EMS1 1 7,EMS56 .EMS 163,0 

EMS56 , EMS36 , EMS64 , 6 

EMS46,EMS30, EMS 64,0 

EMS31 ,EMS30,EMS64,0 

EMS47 , EMS30 , EMS64 , 0 

EMS52,EMS117,EMS77,0 

EMS52 , EMS 1 1 7 ,EMS63, 0 

EMS52 . EMS1 1 7, EMS22$ . EMS 1 1 5 . EMS226 , 0 

EMS225 , EMS227, EMS230 , EMS 1 1 5 , EMS1 56, EMS231 , EMS57 , 0 

EMS11.EMS230.EMS30.0 

EMS225 , EMS226 , EMS 115 , EMS230 , EMS72 , 0 


EMS167,EMS132,EMS207,0 
EMS167,EMS132,EMS210,EMS125,0 
EMS1 67 , EMS2 1 1 , EMS2 1 0 , EMS 207 , EMS206 , 0 
EMS212,EMS213,0 
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SEQ 0257 


172 070264 

173 070272 

174 070310 

175 070320 

176 070330 

177 070340 

178 070352 

179 070364 

180 070404 

181 070414 

182 070424 

183 070444 

184 070464 

185 070476 

186 070514 

187 070530 

188 070546 

189 070564 

190 070602 

191 070620 

192 070632 

193 070646 

194 070664 

195 070704 

196 070726 

197 070740 

198 070752 

199 070764 

200 070776 

201 071006 

202 071026 

203 071040 

204 071052 

205 071064 

206 071104 

207 071116 
2m 071130 

209 071142 

210 071152 

211 071 1 62 

212 071172 

213 071200 

214 071210 

215 071222 

216 071234 

217 071252 

218 071264 

219 071274 

220 071306 

221 071320 

222 071336 

223 071354 

224 071374 

225 071404 

226 071414 

227 071426 

228 071434 


077027 

076440 

077454 

077454 

077454 

072500 

074011 

074011 

074770 

073734 

074106 

074512 

076317 

073734 

073705 

073705 

074571 

073763 

074271 

075270 

073705 

073705 

074106 

074512 

077027 

077027 

077027 

073656 

073734 

073734 

076317 

074770 

075017 

076362 

073462 

073124 

074512 

073511 

073613 

073540 

075046 

073330 

077217 

077177 

072552 

076440 

074403 

073202 

073405 

073763 

0745 71 

074571 

074211 

075270 

073230 

074057 

074011 


077630 

076474 

074704 

077070 

074656 

073656 

075320 

077515 

074535 

074023 

074023 

074106 

076334 

076421 

074023 

074023 

076271 

074552 

074023 

074023 

074023 

074023 

074023 

074106 

074656 

074704 

074630 

073114 

074023 

076421 

076334 

074761 

074761 

076372 

074761 

074761 

073124 

074761 

074761 

074761 

072706 

074761 

073330 

073330 

077234 

076474 

074023 

074761 

074761 

074552 

076271 

076455 

074224 

075320 

074023 

073230 

075320 


000000 

076622 

073114 

073114 

073114 

073114 

074106 

100020 

077424 

074732 

074732 

074732 

074023 

075265 

074732 

074732 

074732 

074732 

074163 

073434 

074165 

074163 

074163 

074023 

074761 

074761 

074761 

074317 

074163 

075265 

074023 

074023 

074023 

074761 

074023 

074023 

074761 

074163 

074163 

074163 

000000 

074163 

074761 

074761 

072574 

074552 

077242 

074023 

074023 

074163 

074163 

076523 

074253 

073230 

074035 

000000 

074106 


EMT252 

EMT253 

EMT254 

EMT255 

EMT256 

EMT257 

EMT260 

EMT261 

EMT262 

EMT263 

EMT264 

EMT265 

EMT266 

EMT267 

EMT270 

EMT271 

EMT272 

EMT273 

EMT274 

EMT275 

EMT276 

EHT277 

EHT300 

EHT301 

EMT302 

EHT303 

EMT304 

EMT305 

EMT306 

EMT307 

EMT310 

EMT311 

EMT312 

EMT313 

EMT314 

EMT315 

EMT316 

EMT317 

EMT320 

EMT321 

EMT322 

EMT323 

EMT324 

EMT325 

EMT326 

EMT327 

EMT330 

EMT331 

EMT332 

EMT333 

EMT334 

EMT335 

EMT336 

EMT337 

EMT340 

EMT341 

EMT342 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


EF.5165.EMS212.0 

EMS147.EMS151 .EMS156.EMS210.EMS26.EMS27.0 

EMS203.EMS101 .EMS30.6 

EMS203.EMS167.EMS30.0 

EMS203EMS100.EMS30.0 

ENS11 .EMS46.EMS30.EMS102.0 

EMS52,EMS117,EMS56.EMS102.0 

EMS52 . EMS205 . EMS220 , EMS206 . EMS 1 1 5 , EMS5 1 ,EMS72 , 0 

EMS104,EMS73,EMS202,0 

EMS50.EMS53.EMS102.5 

EMS56,EMS53.EMS102,EMS115,EMS150,EMS152,EMS70,0 

EMS71 j .EMS56.EMS102,EMS115 1 EMS150,EMS152,EMS72,0 

EM$142.ENS143.EMS53.EMS10$,0 

EMS50,EHS146.EMS115,EMS52,EMS117,EMS46,0 

EM$47,EMS53,EMS102.EMS115,EMS140.0 

EMS47.EMS53.EMS102.EMS115.EMS141 .EMS72.0 

EMS75.EMS141 ,EMS102,EMS115,EMS47,EMS73.0 

EMS51 ,EMS74,EMS102,EMS115,EMS50,EMS70,6 

EMS63 . EMS53, EMS57. EMS1 15, EMS41 , EMS 146.0 

ENS116,EMS53,EMS4i .EMS57.0 

EMS47.EHS53.EMS57.EMS115.EMS140.0 

EMS47, EMS53.EMS57.EMS1 1 5.EMS141 , EMS 72,0 

EMS56 , EMS53 , EMS57 , EMS 1 1 5 , EMS1 50 , EMS 152* EMS70 , 0 

EMS71.EHS56.EMS53.EMS57.EMS115JMS150.EMS152.EMS72.0 

EMS165.EHS100.EMSl03.EM$57,0 

EMS 165, EMS1 01 ,ENS1 03.EMS57.0 

EMS165,EMS77,EMS103,EMS57,0 


EMS46 , EMS30 , EMS64 , EMS57, 0 
EMS50.EMS53.EMS57.Q 

EMS50.EMS146,EMS115,EMS52,EMS117,EMS46,EMS57,0 

EMS142,EMS14|,EMS5| # ENS57,0 

EMS104 ,EMS10|,EMS53,EMS57,0 

EMS 105. EMS 1 03 , EMS53 . EMS57 , 0 

EMS144,EMS145,EMS103,EMS57,EMS115,EMS143,EMS70,0 

EMS42,EMS103,EMS53,EMS57,0 

EMS31 , EMS1 03 , EMS5I , EMS57, § 

EMS71 EMS31 .EM$103,EMS57,0 

EMS43.EMS103,EMS5,0 

EMS45.EMS103,EMS57,0 

EMS44.EMS103 EMS57,0 

EMS106,EMS2Q,0 

EMS5S , EMS1 Q3,EMS57,0 

EMS173,EMS36,EMS103,EMS57,0 

EMS172,EMS36,EMS103,EMS57,0 

EMS13.EMS1 74 .EMS1 5.EMS35 . EMS53 . EHS1 75 . 0 


.EMS57.6 


EMS75 , EMS1 50 , EMS 1 5i, EMS57 , EMS1 1 5 , EMS56 , EMS73 , 0 

EMS60 . EMS61 . EMS62.0 

EMS1 1 6.EMS1 1 f ,EMS34 ,0 

EMS34,lMS53 s gMS54,Efel11.0 

EMS55.ENS34.0 

EMS52.EMS1 1 7,EMS56.EMS57,0 


h m 


SEQ 0258 
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229 071446 

230 071460 

231 071472 

232 071502 

233 071516 

234 071530 

235 071546 

236 071556 

237 071562 

238 071572 


074011 

074011 

074011 

075046 

074011 

074571 

077070 

077714 

077765 

100040 


075320 

075320 

075320 

072706 

077515 

076455 

074535 

000000 

077454 

072706 


073613 EMT343: .WORD E.'1S52,EMS117.EMS45.EMS57.0 

073540 EMT344: .WORD EMS52.EMS117.EMS44 EMS57.0 

100040 EMT345: .WORD EHS52.EMS117,EMS22j.O 

075265 EHT346: .WORD EMS106,EMS20,EMS115,EMS223.EMS72.0 

100110 EMT347: .WORD EHS52,EMS205,EMS222,EMS206,0 

074732 EMT350: .WORD EMS75,EMS150.EMS102,EMS115.EMS56,EMS73,0 
074732 EMT351: .WORD EHS16* ,EMS73,EMS102.0 

EMT352: .WORD EMS215.0 
077735 EMT353: .WORD EMS217.EMS203.EMS216.0 

000000 EMT354: .WORD EMS221 ,EMS20.0 
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B 5 


SEG 0259 


10 


14 


071600 

071612 

100445 

101251 

101251 

101326 

101326 

101453 

EHT1 : .WORD 

EHT2: .WORD 

071622 

071626 

100464 

100473 

000000 

000000 


EHT110: .WORD 
EHT111: .WORD 

071632 

071636 

071650 

100512 

100541 

100567 

oooooc 

101251 

101251 

101326 

101326 

EHT114: .WORD 
EHT223: .WORD 
EHT256: .WORD 

071662 

071674 

071706 

100643 

100702 

101037 

101251 

101251 

101251 

101326 

101326 

101326 

EHT336: .WORD 
EHT337: .WORD 
EHT344: .WORD 

071720 

101175 

000000 


EHT353: .WORD 


EH1.STSH1.STSH2,STSH4.0 
STSH1 .STSH2.STSH4.0 

EH110.0 

EH111.0 

EH114.0 

EH223.STSH1 ,STSH2,STSH4,0 
EH256,STSH1 .STSH2.STSH4.0 

EH336,STSH1 .STSH2.STSH4.0 
EH337,STSH1 ,STSH2,STSH4,0 
EH344.STSH1 # STSH2,STSH4,0 

EH353,0 
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C 5 


EQ 0260 


1 

071 724 

101512 

101606 

101624 

EDT1 : 

.WORD 

2 

•» 

071734 

101606 

101624 

101656 

EDT2: 

.WORD 

j 

4 

071742 

101520 



EDT110: .WORD 

5 

t. 

071744 

101524 



EDT111 : .WORD 

0 

7 

071746 

101532 



EDT114: .WORD 

8 

o 

071750 

101542 

1 01606 

101624 

EDT223: .WORD 

10 

071760 

101552 

101606 

101624 

EDT336: .WORD 

11 

071770 

101564 

101606 

101624 

EDT337: .WORD 

12 

13 

14 

072000 

101564 

101606 

101624 

EDT344: .WORD 

072012 

101576 



EDT353: .WORD 


EDI ,STSD1 .STSD2.STSD4 
STSD1.STSD2.STSD4 

ED1 10 
ED1 11 

ED1 1 4 

ED223.S1SD1 .STSD2.STSD4 

ED336.STSD1 ,STSD2,STSD4 
ED337.STSD1 ,STSD2.STSD4 
ED337,STSD1 .STSD2.STSD4.0 

ED353 


D 5 


SCO 0261 


CZRNEAO RH8G FCTNL PT2 
ERROR MESSAGE TABLE 

1 072014 101671 

2 072024 101707 

3 

4 072032 101670 

5 072034 101671 

6 

7 072036 101673 

8 072040 101673 

9 

10 072050 101676 

11 072060 101676 

12 072070 101676 

13 

14 072100 101673 
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101707 

101707 

EFT1: 

.WORD 

EF111.STSF.STSF.STSF 

101707 

101707 

EFT2: 

.WORD 

STSF.STSF.STSF 



EFT110: .WORD 

EF110 



EFT111: .WORD 

EF111 



EFT114: .WORD 

EF114 

101707 

’01707 

EFT223: .WORD 

EF114. STSF.STSF.STSF 

101707 

101707 

EFT336: .WORD 

EF336. STSF.STSF.STSF 

101707 

101707 

EFT337: .WORD 

EF336.S1SF.STSF.STSF 

101707 

101707 

EFT344: .WORD 

EF336, STSF.STSF.STSF 



EFT353: .WORD 

EF 114 
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SEQ 0262 


.S8TTL ERROR MESSAGE STRINGS 


3 072102 

127 

122 

117 

EMS1 : 

.ASCIZ 

BURONG UNIT SELECTED (RMCS2. BITS 0-2) B 

A 072151 

104 

105 

126 

ENS2: 

.ASCIZ 

8DEVICE WENT 9 

5 072166 

125 

116 

101 

EMS3: 

.ASCIZ 

^UNAVAILABLE 'DVA ' (RMCS1. BIT 11) 3 

6 072231 

116 

117 

116 

EMS4: 

.ASCIZ 

BNONEXISTENT ’NED" (RMCS2, BIT 12) B 

7 072274 

103 

117 

115 

EMS5: 

.ASCIZ 

9 COMMAND NOT COMPLETED. 8 

8 072324 

103 

117 

116 

EMS6 : 

•ASCIZ 

BCONTROLLER NOT READY CRMCS1 , BIT 7) B 

BDRIVE NOT READY wRY" (RMDS. BIT 7) B 

8G0 NOT RESET 'W (RMCS1 . BIT 0) B 

9 072371 

104 

12 2 

111 

EMS7: 

.ASCIZ 

10 072436 

107 

117 

040 

EMS10 

.ASCIZ 

11 072500 

111 

116 

126 

EMS11 

.ASCIZ 

i INVALID B 

12 072511 

106 

125 

116 

EMS12 

.ASCIZ 

BE UNCTION CODE (RMCS1. BITS 1-5) B 

13 072552 

115 

101 

123 

EMS13 

.ASCIZ 

BMASSBUS B 

14 072563 

103 

117 

116 

EMS14 

.ASCIZ 

BCONTROL a 

15 072574 

102 

125 

123 

EMS15 

.ASCIZ 

BBUS PARITY ERROR B 
a‘MCPE M (RMCS1 , BIT 13) B 

16 072616 

04 2 

115 

103 

EMS16 

.ASCIZ 

17 072646 

124 

122 

101 

EM317 

.ASCIZ 

BTRANSFER ERROR (RMCS1, BIT 14) B 

18 072706 

123 

110 

117 

EMS20 

.ASCIZ 

bshould not be set a 

19 072731 

127 

117 

122 

EMS21 

.ASCIZ 

bword count (rmuo a 

20 072754 

102 

125 

123 

EMS22 

.ASCIZ 

BBUS (RMBA) B 

21 072770 

042 

114 

102 

EMS23 

.ASCIZ 

a"L8T M (RMDS. BIT 10) B 

22 073016 

042 

101 

117 

EMS24 

.ASCIZ 

B‘'AOE" (RMER1 . BIT 09) B 

23 073045 

104 

111 

123 

EMS25 

.ASCIZ 

BDISK (RMDA) B 

24 073062 

103 

131 

114 

EMS26 

.ASCIZ 

BCYLINDER (RMDC) B 

25 073103 

101 

104 

104 

EMS27 

.ASCIZ 

BADDRESS B 

26 073114 

123 

124 

101 

EMS3Q 

.ASCIZ 

BSTATUS B 

B* WLE" (RMER1. BIT 11) B 

27 073124 

042 

127 

114 

EMS31 

.ASCIZ 

28 073153 

042 

125 

120 

EMS32 

.ASCIZ 

B’MPE'* (RMCS2. BIT 13) B 

29 073202 

042 

127 

103 

EMS33 

.ASCIZ 

B*W (RMER1, BIT 5) B 

BWRITE CHECK ERROR-'UCE” (RMCS2, BIT 14) B 

30 073230 

127 

122 

111 

EMS34 

.ASCIZ 

31 073301 

042 

115 

104 

EMS35 

.ASCIZ 

a'MDPE” (RMCS2. BIT 8) B 

32 073330 

042 

104 

103 

EMS36 

.ASCIZ 

B’^CK" (RMER1 . BIT 15) B 

33 073357 

042 

105 

103 

EMS37 

.ASCIZ 

B^CH" (RMERl. BIT 6) B 

34 073405 

042 

104 

114 

EMS40 

.ASCIZ 

a'DLT'’ (RMCS2. BIT 15) B 

35 073434 

042 

115 

130 

EMS41 

.ASCIZ 

a , KXF M (RMCS2. BIT 9) B 

36 073462 

042 

104 

124 

fcMS42 

.ASCIZ 

B'DTE'* (RMERl. BIT 12) B 

37 073511 

042 

110 

103 

EMS43 

.ASCIZ 

B’HCRC" (RMERl. BIT 8) B 

BHEADER COMPARE ERROR "HCE” (RMERl. BIT 7) B 

3S 073540 

110 

105 

101 

EMS44 

.ASCIZ 

39 073613 

106 

117 

122 

EMS45 

.ASCIZ 

BFORMAT ERROR ’TER" (RMERl. BIT 4) B 

40 073656 

042 

111 

101 

EMS46 

.ASCIZ 

B"IAE“ (RMERl. BIT 10) B 

41 073705 

042 

117 

120 

EMS47 

.ASCIZ 

a’lDPI*' (RMERl. BIT 13) B 

42 073734 

042 

123 

113 

EMS50 

.ASCIZ 

a”SKI" (RMER2. BIT 14) B 

43 073763 

042 

120 

111 

EMS51 

.ASCIZ 

a’WP** (RMDS. BIT 13) B 

44 074011 

124 

110 

105 

EMS52 

.ASCIZ 

BTHE RM80 B 

45 074023 

104 

105 

124 

EMS53 

.ASCIZ 

BDETECTED B 

46 074035 

101 

124 

040 

EMS54 

.ASCIZ 

BAT AN UNEXPECTED B 

47 074057 

111 

116 

103 

EMS55 

.ASCIZ 

BINCORRECT DATA DURING B 

48 074106 

111 

116 

126 

EMS56 

.ASCIZ 

BINVALID COMMAND ERROR "IVC'* (RMER2. BIT 12) 

<*9 074163 

104 

125 

122 

EMS57 

.ASCIZ 

BDURING DATA TRANSFER B 

50 074211 

104 

101 

124 

EMS60 

.ASCIZ 

BDATA READ B 

51 074224 

104 

117 

105 

EMS61 

.ASCIZ 

BDOES NOT COMPARE WITH B 

52 074253 

104 

101 

124 

EMS62 

.ASCIZ 

BDATA WRITTEN B 

53 074271 

042 

120 

101 

EMS63 

.ASCIZ 

B’^AR** (RMERl. BIT 3) B 

54 074317 

111 

123 

040 

EMS64 

.ASCIZ 

BIS INCORRECT B 

55 074335 

103 

117 

115 

EMS65 

.ASCIZ 

BC0MPO31TE ERROR *tRR” (RMDS. BIT 14) B 

BDATA PARITY ERROR "DPE" (RMER2. BIT 3) B 

56 074403 

104 

101 

124 

EMS66 

.ASCIZ 

57 074453 

104 

125 

122 

EMS67 

.ASCIZ 

BDURING SEEK COMMAND B 


i 
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F 5 


SEQ 0263 


58 07450Q 

59 0/4512 

60 074525 

61 074535 

62 074552 

63 074571 

64 074577 

65 074630 

66 074656 

67 074704 

68 074732 

69 074761 

70 074770 

71 075017 

72 075046 

73 075065 

74 075114 

75 075125 

76 075167 

77 075211 

78 075241 

79 075265 

80 075270 

81 075320 

82 075342 

83 075342 

84 075405 

85 075442 

86 075505 

87 075537 

88 075602 

89 075645 

90 075704 

91 075742 

92 076002 

93 076026 

94 076051 

95 076113 

96 076166 

97 076213 

98 076250 

99 076271 
100 076317 

076334 
076362 
076372 
076421 

105 076440 

106 076455 

107 076474 

108 076520 

109 076544 

110 076566 
076602 
076622 
07664Q 


101 

102 

103 

104 


111 

11 

11 


114 076655 


111 

105 

111 

104 

104 

114 
104 
042 
042 
042 

104 

105 
04 2 
042 
110 
102 
101 
127 
101 
124 
116 
015 

124 

106 

103 

102 

103 

105 

101 

115 
105 
105 

115 

116 

125 

103 
122 

104 
104 

115 
042 
104 
042 
125 
042 
123 
117 
040 
042 
042 
120 

116 
117 
116 
122 
122 


123 

122 

123 
111 
111 
117 
125 
122 
111 
111 
125 
122 
114 

114 
105 
125 

104 
110 

124 
110 
117 
012 
110 
101 

117 

125 
117 
122 

124 
101 
103 

103 
101 
117 
116 
117 
110 
122 
122 

105 

115 
1 22 

104 

116 

125 
110 

106 

126 
117 
126 
101 
117 
106 
117 
124 
111 


040 EMS70 

122 EMS71 
040 EMS72 
104 EMS73 
104 EMS74 

123 EMS75 
122 EMS76 

115 EMS77 
114 EMS100: 

114 EMS101: 
122 EMS102: 

122 EMS103: 

102 EMS104: 

123 EMS105: 

101 EMS106: 

123 EMS110: 

104 EMS111: 

105 EMS112: 
040 

105 EMS113: 

116 EMS114: 
000 EMS115: 

105 EMS116: 

111 EMS117: 

EMS120: 
116 EMS121: 

123 EMS122: 
116 EMS123: 

122 EMS124: 

124 EMS125: 

111 EMS126: 

103 EMS127: 

103 EMS130: 

111 EMS131: 

124 EMS132: 
111 EMS133: 

116 EMS134: 

040 EMS135: 
111 EMS136: 
111 EMS137: 

104 EMS140: 

117 EMS141: 
111 EMS142: 
126 EMS143: 

123 EMS144: 

116 EMS145: 

117 EMS146: 

106 EMS147: 
117 EMS150: 

115 EMS151 : 
126 EMS152: 
103 EMS153: 

124 EMS154: 
106 EMS155: 
124 EMS156: 
103 EMS157: 
120 EMS160: 


.ASCJZ 81S RESET 8 
.ASCIZ aERRONEOUS i 
.ASC12 ais SET a 
.ASCIZ aDJD NOT SET a 
.ASCJZ aDID NOT RESET a 
.asciz aiosT a 

.ASCIZ 8DURING PACK ACK COMMAND a 
.ASCIZ a'MMR" (RMER1 . BIT 2) a 
.ASCIZ a”ILR" (RMER1 , BIT 1) a 
.ASCIZ a"ILF" (RMER1, BIT 0) a 
.ASCIZ 8DURING SEARCH COMMAND a 
.ASCIZ aERROR a 

.ASCIZ a*18C" (RMER2, BIT 10) a 
.ASCIZ rise" (RMER2, BIT 11) a 
.ASCIZ 3HEADER ERRORS a 
.ASCIZ BBUS TIMEOUT (04 TRAP) a 
.ASCIZ dADDRESS a 

.ASCII aUHEN READING/WRITING RH REGISTERS a 
.ASCIZ 8AT THE FOLLOWING a 
.ASCIZ BT HE SELECTED DEVICE IS a 
.ASCIZ aNONEXISTENT DEVICE a 
.ASCIZ <CRXLF> 

.ASCIZ BTHE MASSBUS CONTROLLER a 
.ASCIZ BF AILED TO DETECT a 
;NOT USED 

.ASCIZ aCONTROL STATUS REGISTER 1. RMCS1. a 
BBUS ADDRESS REGISTER. RMBA, a 
aCONTROL STATUS REGISTER 2. RMCS2, a 
iERROR REGISTER 1. RMER1. a 
aATTENTION SUMMARY REGISTER. RMAS, a 
aMAINTENANCE REGISTER #1. RMMR #1. a 
8ECC POSITION REGISTER. RMEC1 , a 
8ECC PATTERN REGISTER. RMEC2, a 
aMAINTENANCE REGISTER 2. RMMR2. a 
aNOT INITIALIZED BY a 
aUNIBUS INITIALIZE a 
aCONTROLLER CLEAR. I.E. BIT 5 OF a 
3RH CONTROLLER ERROR CLEAR (RMCS1 , BIT 14) 
aDRIVE CLEAR COMMAND a 
aDRIVE STATUS REGISTER. RMDS a 
aMEDIUM OFF LINE a 
a* MOL" (RMDS. 8IT 12) a 
aDRIVE FAULT a 
a*T>VC" (RMER2, BIT 7) a 


.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 


aUNSAFE a 
a'tMS" (RMER1, BIT 
aSHOULD BE SET a 
iOFFSET MODE a 
a VOLUME valid a 
a'lOM" (RMDS. BIT 0) 
a'W" (RMDS. BIT 6) 
BPACK ACK COMMAND a 
3N0T SET BY a 
aOFFSET COMMAND a 
3N0T RESET BY a 
aRTC COMMAND a 
aRIP COMMAND a 


14) a 


! 
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115 

116 

076672 

076722 

117 

106 

106 

ENS161 

E MS 162 

.ASCIZ 

117 

076722 

104 

125 

122 

E MSI 63 

.ASCI2 

118 

076746 

077015 

111 

123 

040 

EMS164 

.ASCII 

119 

103 

131 

114 

EMS165 

.ASCIZ 

120 

077027 

125 

116 

105 

.ASCIZ 

121 

077043 

122 

105 

103 

EMS166 

.ASCIZ 

122 

077070 

042 

101 

124 

EMS167 

.ASCIZ 

123 

077115 

127 

110 

105 

EMS170 

.ASCIZ 

124 

077144 

105 

122 

122 

EMS171 

.ASCIZ 

125 

077177 

116 

117 

116 

EHS172 

EMS173 

.ASCIZ 

126 

077217 

122 

105 

103 

.ASCIZ 

127 

077234 

104 

101 

124 

EMS174 

.ASCIZ 

128 

077242 

104 

125 

122 

EMS175 

.ASCIZ 

129 

077270 

042 

117 

120 

EHS176 

.ASCIZ 

130 

077317 

111 

116 

040 

EMS177 

.ASCIZ 

131 

077341 

103 

101 

116 

EMS200 

.ASCIZ 

132 

077356 

104 

111 

101 

EMS201 

.ASCIZ 

133 

077424 

104 

125 

122 

EMS202 

.ASCIZ 

134 

077454 

111 

116 

103 

EMS203 

.ASCIZ 

135 

077467 

042 

127 

122 

EMS204 

.ASCIZ 

136 

077515 

105 

130 

105 

EMS205 

.ASCIZ 

137 

077527 

127 

111 

124 

EMS206 

.ASCIZ 

138 

077554 

042 

107 

1 1 7 

EMS207 

.ASCIZ 

139 

077601 

127 

122 

111 

EMS210 

.ASCIZ 

140 

077612 

127 

101 

123 

EMS211 

.ASCIZ 

141 

077630 

120 

122 

117 

EMS212 

.ASCIZ 

142 

077653 

127 

101 

123 

EMS213 

.ASCIZ 

143 

077676 

123 

105 

105 

EMS214 

.ASCIZ 

144 

077714 

120 

122 

117 

EMS215 

.ASCIZ 

145 

077735 

104 

125 

122 

EMS216 

.ASCIZ 

146 

077765 

114 

117 

117 

EMS217 

.ASCIZ 

147 

100020 

123 

105 

101 

EMS220 

.ASCIZ 

148 

100040 

102 

101 

104 

EMS221 

.ASCIZ 

149 

100110 

101 

040 

104 

EMS222 

.ASCIZ 

150 

100141 

110 

105 

101 

EMS223 

.ASCIZ 

151 

100216 

116 

117 

116 

EMS224 

.ASCIZ 

152 

100270 

123 

113 

111 

EMS225 

.ASCIZ 

153 

100313 

04 2 

123 

123 

EMS226 

.ASCIZ 

154 

100342 

100353 

111 

116 

110 

ENS227 

.ASCIZ 

155 

04 2 

123 

123 

EMS230 

.ASCIZ 

156 

100402 

125 

116 

104 

EMS231 

.ASCIZ 

157 

100420 

101 

106 

124 

EMS232 

.ASCIZ 


BOFFSET REGISTER (RMOF) i 
;<UNUSED> 

SOURING RECALIBRATE B 

SIS INTERMIT TENT OR DRIVE DIDNT DROP ON B 

iCVLINDER i 

SUNEXPECTED 9 

BRE CALIBRATE COMMAND B 

B^TA* (RNDS, BIT15) a 

BUHEN READING REGISTER B 

BERROR REGISTER #2, RMER2. B 

BNONRECOVERABLE B 

BRECOVERABLE B 

BDATA B 

BDURING WRITE COMMAND B 
a’lDPE" (RMER2, BIT 13) B 
<11 N WRITE PROTECT B 
BCAN NOT SET B 

DIAGNOSTIC NODE ’DMD" (RMMR1 , BIT 0> B 

BDURING DIAGNOSTIC MODE B 

BINCORRECT B 

8‘VRL" (HMDS, BIT 11) B 

^EXECUTED B 

WITH COMP ERROR SET B 

B'W (RMCS1 , BIT 0) B 

BUR1TING B 

BUAS RESET BY B 

BPROGRAM INTERRUPT B 

BWAS NOT GENERATED B 

BSEEK COMMAND B 

BPROGRAM TIMEOUT B 

BDURING LOOK AHEAD TEST B 

BLOOK AHEAD RE6ISTER.RMU. B 

acciOfU FMUMD a 

BBAD SECTOR ERROR ‘BSE*’ (ANER2, BIT 15) B 

BA DATA TRANSFER COMMAND B 

BHEADER COMPARE INHIBIT 'BCI" (RMOF. BIT 10) 

BNONEXISTENT MEMORY '1NEN" (RMCS2, BIT 11) B 

B SKIP SECTOR ERROR B 

B"SSE” (RMER2, BIT 05) B 

BINHIBIT B 

B f, SSEr* (RMOF, BIT 09) B 
BEND OF TRACK B 
BAFTER DATA TRANSFER B 


SEO 0264 
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1 100445 

2 100464 

3 100473 

4 

5 100512 

6 100541 

7 100567 

8 100615 

9 

10 100643 

11 100702 

12 100741 

13 101000 

14 

15 101037 

16 101077 

17 101135 

18 101175 

19 101214 

20 

21 101251 

22 101316 

23 101326 

24 101373 

25 101415 

26 101453 

27 


105 

130 

120 

EMI: 

102 

125 

123 

EH110: 

040 

122 

115 

EH111: 

122 

105 

103 

EH114: 

105 

130 

120 

EH223: 

105 

130 

120 

EH256: 

123 

124 

101 


107 

104 

101 

EH336: 

122 

115 

103 

EH337: 

137 

137 

137 


105 

130 

120 


122 

115 

105 

EH344: 

137 

137 

137 


105 

130 

120 


105 

130 

120 

EH353: 

074 

103 

122 


040 

122 

115 

STSH1 : 

040 

040 

C40 


040 

122 

115 

STSH2: 

040 

040 

040 


040 

122 

115 

STSH3: 

040 

122 

115 

STSH4: 


.EVEN 


.ASCIZ 

.ASCJZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCII 

.ASCIZ 

.ASCII 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 


aEXPCTD RECEVD3 
aeusADRa 
a rmcs2 Rflcsia 

3RECEVD SNGPRT DULPRTa 
aEXPCTO RECEVD DATAa 
aEXPCTD RECEVD R6STRa<CRlF> 
aSTATUS STATUS INDEXa 

aGDADRS GDDATA BDADRS BDDATAi 
BRMCS2 STATUS FAILING DATA8<CRlF> 
a a<CRLF> 

SE*PtTB“RECETO "BIT — WRESSa 

afiMERI STATUS HEADER FAILINGa<CRLF> 

a WORD 8ITa<CRLF> 

aEXPCTB"”RECEV0 NUMBER POSITONa 
aEXPCTD RECEVDa<CRLF> 
a<CRLF> RMLA RMLA RMOF a 


8 RMCS1 RMCS2 RMDS 

a RMAsa 

a RMWC RMBA RMDA 

a RMEC1 RMEC23 
a RMDA RMDC RMOF 

a RMMR1 RMMR2 RMDT 


RMER1 RMER23 


RMDCa 


RMLAa 

RMSNa 
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1 

101512 

00’ 140 

001142 

000000 

EDI: 

.WORD 

SGDDAT.S8DDAT.0 

S8ASE.6 

2 

101520 

001276 

000000 


ED1 10 

.WORD 

3 

101524 

001174 

001176 

000000 

ED1 1 1 

.WORD 

ST*P0.*TMP1,0 

A 

5 

101532 

001364 

001176 

001200 

ED1 1 4 

.WORD 

RMDTI ,$TNP1 .STMP2.0 

6 

101542 

001140 

001142 

001174 

ED223 

.WORD 

SGDDA T , S8DDA T . STMPO , 0 

7 

8 

101552 

001134 

001140 

001136 

ED336 

.WORD 

SGDADR . SGDDAT . S8D ADR . SflDDAT , 0 

9 

10 

101564 

001140 

001142 

001174 

ED337 

.WORD 

SGDDAT.S8DDAT, STMPO. STMP1.0 

11 

101576 

001140 

001142 

001444 

ED353 

.WORD 

$GDDAT,$8DDAT,RM0F0,0 

12 

13 

101606 

001336 

001346 

001350 

STSD1 

.WORD 

RMCS1 1 .RMCS2I .RMDSI .RMER1 I .RMER2I .RMASI .0 

14 

15 

101624 

101640 

001340 

001404 

001342 

000000 

001344 

STSD2 

.WORD 

.WORD 

RMWCi .RMBAI .RMDAI .RMOFI.RMDCI .RMEC1I 
RMEC2J.0 

16 

101644 

001344 

001372 

001370 

STSD3 

.WORD 

RMDAI . RMDC I . RMOF I , RMLAI . 0 

RMMR1 I .RMMR2I .RMDTI .RMSNI .0 

17 

101656 

001362 

001376 

001364 

STSD4 

.WORD 



oo 
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J 5 


SCO 0267 


1 101670 
101671 
101673 
101676 
101702 

101707 


000 



EF1 10: 

.BYTE 

0 

000 

000 


EF111: 

.BYTE 

0.0 

000 

000 

000 

EF114: 

.BYTE 

0.0 0 

000 

000 

000 

EF336: 

.BYTE 

o.o.o.o 

000 

000 

000 

EF337: 

•BYTE 

0.0.0. 0.0 

000 

000 

000 

STSF: 

.EVEN 

.BYTE 

o.o.o.o.o.o.o 
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K S 


SEQ 0268 


1 

2 101716 

3 101716 

4 102722 

5 

6 

7 103726 

8 103732 

9 104732 
10 

11 

12 104734 

13 104740 

14 105740 

15 

16 

17 105742 

18 105746 

19 106036 

20 
21 
22 

23 101716 

24 101716 

25 101717 

26 101720 

27 101736 

28 101754 

29 102006 

30 102026 

31 102050 

32 102076 

33 102141 

34 102160 

35 102205 

36 102251 

37 102305 

38 102356 

39 102432 

40 102465 

41 102524 

42 102562 

43 102630 

44 102674 

45 102734 

46 102773 

47 103035 

48 103062 

49 103106 

50 103134 
103176 
103241 

__ 103271 

54 103272 

55 103326 

56 103362 

57 103377 


51 


000000 

177777 

000000 

177777 

000000 

177777 

101716 


2 00 
200 
114 
055 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
200 
117 
055 
123 
055 


000000 


000000 


000000 


.'STORAGE FOR GENERAL DATA TRANSFERRS 
BUFFER: 

BUFONE: .BLKW 258. 

BUFTWO: .BLKW 258. 

; STORAGE FOR MANUFACTURES BAD SECTOR FILE CDEC144> 

MFGFIL: .WORD 0,0 ;2 HEADER WORDS 

.BLKW 256. ;256 WORDS OF DATA 

.WORD -1 .'TERMINATOR IF FILE IS FULL 

.‘STORAGE FOR USERS BAD SECTOR FILE(DEC144> 

USRFIL: .WORD 0.0 ;2 HEADER WORDS 

.BLKW 256. ;2 56. WORDS OF DATA 

.WORD -1 .'TERMINATOR IF FILE IS FULL 


.'STORAGE FOR SKIP SECTOR FILE 
SSFIL: .WORD 0,0 


.BLKW 

.WORD 


V#w 

2 §. 

-1 


p ucincD unonc 

;2 CYLINDERS OF SKIP SECTOR ENTRIES 
.'TERMINATOR 


.=8UFFER 


111 

123 

.ASCII 

.ASCII 

.ASCII 

055 

055 

.ASCII 


Oil 

.ASCII 

062 

Oil 

.ASCII 

063 

Oil 

.ASCII 

064 

Oil 

.ASCII 

065 

Oil 

.ASCII 

066 

Oil 

.ASCII 

067 

Oil 

.ASCII 

061 

060 

.ASCII 

061 

061 

.ASCII 

061 

062 

.ASCII 

061 

063 

.ASCII 

061 

064 

.ASCII 

061 

065 

.ASCII 


066 

.ASCII 

061 

067 

.ASCII 

062 

Hi 

.ASCII 

062 

061 

.ASCII 

062 

062 

.ASCII 

062 

063 

.ASCII 

062 

064 

.ASCII 

062 

065 

.ASCII 

062 

066 

.ASCII 

062 

067 

.ASCII 

063 

Hi 

.ASCII 

063 

061 

.ASCII 

120 

105 

.ASCII 

.ASCII 

055 

055 

.ASCII 

127 

111 

.ASCII 

055 

055 

.ASCII 


<CRLF> 

<CRLF> 

8LIST OF TESTSB<CRLF> 

B a<CRLF> 

an 

aT2 
aT3 
aT4 
9T5 
9T6 
9T 7 
ST 10 

am 

an 2 
an 3 
an 4 
an 5 
an 6 
an 7 
aT20 
am 
ar22 
aT23 
3T24 
aT25 
aT26 
aT27 
3T30 
3T31 
<CRLF> 

aOPERATIONAL SWITCH SETTINGSa<CRLF> 

a 3 <crlf> 

aswircH use3<crlf> 

a 


CONTROLLER ACCESS TEST3<CRLF> 

FORMAT ZEROSa<CRLf > 

ZERO FILL TEST3<CRLF> 

FORMAT CHECK ZEROSa<CRLF> 

FORMAT CHECK ZEROS W/ WCE ERR0R3<CRLF> 

FORMAT ONESa<CRLF> 

FORMAT CHECK ONESa<CRLF> 

FORMAT CHECK ONES W/ WCE ERRORSa<CRLF> 

FORMAT MULTIPLE SECT0RS8<CRLF> 

READ HEADER t DATA W/ HEAD SWITCHINGa<CRLF> 
READ HEADER t DATA W/ MID TRANSFER SEEKa<CRLF> 
FORMAT W/ IMPLIED SEEKa<CRLF> 

FORMAT EACH SECTOR ADDRESSa<CRLF> 

FORMAT EACH TRACK ADDRESSa<CRLF> 

READ HEADER 8 DATA IN LAST SECTORa<CRLF> 

READ HEADER t DATA W/ AOE ERRORa<CRLF> 

READ INVALID SECTOR ADDRESSa<CRLF> 

READ INVALID TRACK ADDRESSa<CRLF> 

READ INVALID CYLINDER ADDRESS8<CRLF> 

FORMAT AT 0FFSET3<CRLF> 

I VC FORMAT TEST8<CRLF> 

FORMAT ERROR TESTa<CRLF> 

FORMAT HCE, FIRST HEADER WORDa<CRLF> 

FORMAT HCE, SECOND HEADER WORDa<CRLF> 

FORMAT FE CYLINDERSa<CRLF> 


a<CRLF> 
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58 103434 

040 

040 

040 

59 103460 

60 103503 

61 103540 

040 

62 103547 

040 

63 103600 

040 

64 103624 


65 103650 

040 

66 103707 

040 

67 103723 

040 

68 103736 

040 

69 103751 

040 

70 103764 


71 103776 

040 

72 104010 

040 

73 104022 

74 

040 

75 

000200 


040 

061 

.ASCII 

a 

15 

040 

061 

.ASCII 

a 

14 

040 

061 

.ASCII 

a 

13 

040 

061 

.ASCII 

a 

12 

040 

061 

.ASCII 

a 

11 

040 

061 

.ASCII 

a 

10 

040 

040 

.ASCII 

a 

9 

040 

040 

.ASCII 

a 

8 

040 

040 

.ASCII 

a 

7 

040 

040 

.ASCII 

a 

6 

040 

040 

.ASCII 

a 

5 

040 

040 

.ASCII 

a 

4 

040 

040 

.ASCII 

a 

3 

040 

040 

.ASCII 

a 

2 

040 

040 

.ASCII 

a 

1 

040 

040 

.ASCIZ 

a 

0 


.END 200 


L 


1 
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ABASE = 
ACDU1 = 
ACDU2 = 
ACKSTS 
ACPUOP= 
AODUO = 
ADDWl = 
ADDWl 0- 
ADDW1 1 = 
ADDWl 2= 
ADDWl 3= 
ADDWl 4= 
ADDWl 5= 
ADDW2 = 
ADDW3 = 
ADDW4 = 

I ADDW5 = 
ADDW6 = 

| AD"W7 = 
AD 8 = 
i AD v9 = 
ADlVCT= 
ADEVM = 
ADR = 
AENV = 
AENVM = 
AFATAL= 
ALL 

AMADR1= 

AMADR2= 

AMADR3= 

AMADR4= 

AMAMS1 = 

AMAMS2= 

AMAMS3= 

AMAMS4= 

AMSGAD= 

AMSGLG= 

AMSGTY= 

AMTYP1= 

AMTYP2= 

AMTYP3= 

AMTYP4= 

AOE = 

APASS = 

APE = 

APR I OR = 

APTCSU= 

APTENV* 

APTSIZ= 

APTSPO= 

ARGS = 

ASNDA 

ASNDC 

ASWREG- 

ATA = 

ATESTN= 


= 176700 


000000 

046452 

OOOOTO 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


000000 


000000 



000000 


000000 


000000 

001000 

000000 

100000 

000000 

000040 

000001 

000200 

000100 

000004 



= 100000 


ATNMSK= 
ATNTBl 
AUNIT = 
AUSWR = 
AVECT1= 
AVECT2= 
A16 = 

A17 = 

BACK = 
BADSCT 
BADTMO 
BAI = 
BBOO = 
B801 = 

B802 = 
B803 = 
BB04 = 
BB05 = 
BB06 = 
B807 = 
BB08 = 
B809 = 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 - 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BLNKS1 
BLNKS2 
BLNKS3 
BLNKS4 
BOTADR 
BOTFLG 
BPTVEC= 
BSE = 
BUFFER 


000377 

065004 


120254 

000000 

000400 

001000 

000001 

032406 

005344 

000010 


000010 

000020 

000040 

000100 

000200 

000400 

001000 


001000 

000002 

002000 

004000 

010000 

020000 

040000 


000010 

000020 

000040 

000100 

000200 

000400 

001000 

064701 

064700 

064677 

064676 

061124 

061126 

000014 

100000 

101716 


BUFONE 
BUFTWO 
CC = 
CH 

CHGADR 

CHRCNT 

CKSWR = 

CLKADR 

CLKVCT 

CLR = 

CLRSTS 

CMNSTA 

CMPBUF 

CMPERR 

CNSL01 

CNSL02 

CNSL03 

CNSL04 

CNSL07 

CNSL08 

CNSL09 

CNTCLR 

COMMA 

CONT = 

CPSAVE 

CR 

CRLF = 
CTLFG 
CYLMSK= 
DBCK = 
DBEN = 
DBL = 
DCK = 
DDISP = 
DEBL = 
DEVSEL 
DISPLA 
DISPRE 
DLT = 
DMD = 
DPE = 
DPEHI = 
DPELO = 
DPR = 
DRIVES 
DRO = 
DRVCLR= 
DRVSTS 
DRY = 
DSWR = 
DTASTS 
DTE = 
DTO = 
DULPRT= 
DVA = 
DVC = 
EARLY 


101716 

102722 

004000 

002000 

001330 

061127 

104410 

001522 

001524 

000040 

045572 

007332 

035106 

043550 

064161 

064171 

064233 

064242 

064276 

06444C 

064441 

045454 

063545 

000100 

060300 

000015 

000200 

001326 

001777 

100000 

040000 

002000 

100000 

177570 

0200U0 

043762 

001156 

000174 

100000 

000001 

000010 

040000 

020000 

000400 

064636 

004000 

000010 

051010 

000200 

177570 

051612 

010000 

010000 

024026 

004000 

000200 

065330 


M 5 


SEQ 0270 


EBL = 

ECH = 

ECI = 

ECRC = 

EDT1 

EDT110 

EDT111 

EDT114 

EDT2 

EDT223 

EDT336 

EDT337 

EDT344 

EDT353 

EDI 

ED1 1 0 

ED1 11 

ED1 1 4 

ED223 

ED336 

ED337 

ED353 

EECC = 

EFT1 

EFT110 

EFT111 

EFT114 

EFT2 

EFT223 

EFT336 

EFT337 

EFT344 

EFT353 

EF110 

EF111 

EF114 

EF336 

EF337 

EHT1 

EHT110 

EHT111 

EHT114 

EHT2 

EHT223 

EHT256 

EHT336 

EHT337 

EHT344 

EHT353 

EH1 

EH110 

EH111 

EH114 

EH223 

EH256 

EH336 

EH337 


020000 

000100 

004000 

001000 

071724 

071742 

071744 

071746 

071734 

071750 

071760 

071770 

072000 

072012 

101512 

101520 

101524 

101532 

101542 

101552 

101564 

101576 

000020 

072014 

072032 

072034 

072036 

072024 

072040 

072050 

072060 

072070 

072100 

101670 

101671 

101673 

101676 

101702 

071600 

071622 

071626 

071632 

071612 

071636 

071650 

071662 

071674 

071706 

071720 

100445 

100464 

100473 

100512 

100541 

100567 

100643 

100702 


EH344 

EH353 

EMS1 

EMS10 

EMS100 

EMS101 

EMS102 

EMS103 

EMS104 

EMS105 

EMS106 

EMS11 

EMS110 

EMS111 

EMS112 

EMS113 

EMS114 

EMS115 

EMS116 

EMS117 

EMS12 

EMS120 

EMS121 

EMS122 

EMS123 

EMS124 

EMS125 

EMS126 

EMS1 27 

EMS13 

EMS130 

EMS131 

EMS132 

EMS133 

EMS134 

EMS135 

EMS136 

EMS137 

EMS14 

EMS140 

EMS141 

EMS142 

EMS143 

EMS144 

EMS145 

EMS146 

EMS147 

EMS15 

EMS150 

EMS151 

EMS152 

EMS153 

EMS154 

EMS155 

EMS156 

EMS157 

EMS16 


101037 

101175 

072102 

072436 

074656 

074704 

074732 

074761 

074770 

075017 

075046 

072500 

075065 

075114 

075125 

075211 

075241 

075265 

075270 

075320 

072511 

075342 

075342 

075405 

075442 

075505 

075537 

075602 

075645 

072552 

075704 

075742 

076002 

076026 

076051 

076113 

076166 

076213 

072563 

076250 

076271 

076317 

076334 

076362 

076372 

076421 

076440 

072574 

076455 

076474 

076520 

076544 

076566 

076602 

076622 

076640 

072616 


j 
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EMS160 

EMS 161 

EHS162 

EMS163 

EMS164 

EMS165 

EMS166 

EMS167 

EMS17 

EMS170 

EMS171 

EMS172 

EMS173 

EMS174 

EMS175 

EMS176 

EMS177 

EMS2 

EMS20 

EMS200 

EMS201 

EMS202 

EMS203 

EMS2C4 

EMS205 

EMS206 

EMS207 

EMS21 

EMS210 

EMS211 

EMS212 

EMS213 

EMS214 

EMS215 

EMS216 

EMS217 

EMS22 

EMS220 

EMS221 

EMS222 

EMS223 

EMS224 

EMS225 

EMS226 

EMS227 

EMS23 

EMS230 

EMS231 

EMS232 

EMS24 

EMS25 

EMS26 

EMS27 

EMS3 

EMS30 

EMS31 

EMS32 


076655 
076672 
076722 
076722 
076746 
077027 
077043 
077070 
072646 
077115 
077144 
077177 
077217 
077234 
077242 
07; 270 
077317 
072151 
072706 
077341 
077356 
077424 
077454 
077467 
077515 
077527 
077554 
072731 
077601 
077612 
077630 
077653 
077676 
077714 
077735 
077765 
072754 
100020 
100040 
100110 
100141 
100216 
100270 
100313 
100342 
072770 
100353 
100402 
100420 
073016 
073045 


073103 

072166 

073114 

073124 

073153 


EMS33 

EMS34 

EMS35 

EMS36 

EHS37 

EMS4 

ENS40 

EMS41 

EMS42 

EMS43 

EMS44 

EMS45 

EMS46 

EMS47 

EMS5 

EMS50 

EHS51 

EMS52 

EMS53 

EMS54 

EMS55 

EMS56 

EMS57 

EMS6 

EMS60 

EMS61 

EMS62 

EMS63 

EMS64 

EMS65 

EMS66 

EMS67 

EMS7 

EMS70 

EMS71 

EMS72 

EMS73 

EMS74 

EMS75 

EMS76 

EMS77 

EMTVEC= 

EMT1 

EMTIO 

EMT100 

EMT101 

EMT102 

EMT103 

EMT104 

EMT105 

EMT106 

EMT107 

EMT11 

EMT110 

EMT111 

EMT1 12 

EMT113 


073232 

073230 

073301 

073330 

073357 

<> 7 £31 

073305 

073434 

073462 

073511 

073540 

073613 

073656 

073705 

072274 

073734 

073763 

074011 

074023 

074035 

074057 

074106 

074163 

072324 

074211 

074224 

074253 

074271 

074317 

074335 

074403 

074453 

072371 

074500 

074512 

074525 

074535 

074552 

074571 

074577 

074630 

000030 

065442 

065512 

066516 

066534 

066552 

066562 

066574 

066612 

066622 

066632 

065516 

066652 

066664 

066672 

066700 


EMT 114 

EMT ; 15 

EMT116 

EMT117 

EMT 12 

EMT120 

EMT121 

EMT 122 

EHT123 

EMT124 

EMT125 

EMT126 

EMT127 

EMT 13 

EMT130 

EMT131 

EMT132 

EMT133 

EMT134 

EMT 135 

EMT136 

EMT137 

EMT14 

EMT140 

EMT141 

EMT 142 

EMT143 

EMT144 

EMT145 

EMT146 

EMT 147 

EMT 15 

EMT150 

EMT151 

EMT152 

EMT153 

EMT154 

EMT155 

EMT156 

EMT157 

EMT16 

EMT 160 

EMT161 

EMT162 

EMT163 

EMT164 

EMT165 

EMT166 

EMT167 

EMT17 

EMT170 

EMT171 

EMT172 

EMT173 

EMT174 

EMT175 

EMT176 


066714 

066716 

066726 

066736 

065522 

066746 

066756 

066766 

066776 

067006 

067016 

067026 

067040 

065530 

067052 

067064 

067076 

067110 

067122 

067134 

067146 

067160 

065542 

067170 

067200 

067210 

067220 

067230 

067240 

067250 

067260 

065550 

067270 

067300 

067312 

067324 

067342 

067360 

067372 

067404 

065556 

067416 

067426 

067440 

067452 

067462 

067470 

067476 

067504 

065566 l 

067512 

067524 


067534 

067544 

067554 

067566 

067574 


SEO 0271 


EMT177 

EMT2 

EMT20 

EMT200 

EMT201 

EMT202 

EMT203 

EMT204 

EMT205 

EMT206 

EMT207 

EMT21 

EMT210 

EMT211 

EMT212 

EMT213 

EMT214 

EMT215 

EMT216 

EMT217 

EMT22 

EMT 220 

EMT221 

EMT222 

EMT223 

EMT224 

EMT225 

EMT226 

EMT227 

EMT23 

EMT230 

EMT231 

EMT232 

EMT233 

EMT234 

EMT235 

EMT236 

EMT237 

EMT24 

EHT240 

EMT241 

EMT242 

EMT243 

EMT244 

EMT245 

EMT246 

EMT247 

EMT25 

EMT250 

EMT251 

EMT253 

EMT254 

SMT255 

EMT256 

EMT257 

EMT26 


067602 
065446 
065576 
067604 
067616 
067630 
067642 
067654 
067672 
067702 
067712 
065606 
067724 
067732 
067746 
067762 
067772 
070012 
070024 
070034 
065616 
070044 
070054 
070064 
070074 
070104 
070120 
070140 
070150 
065626 
070164 
070166 
070170 
070172 
070174 
070176 
070200 
070202 
065636 
070204 
070206 
070210 
070212 
070214 
07 
070 
070 

065646 
070242 
070256 
070264 
070272 
070 
070320 
070330 
070340 
065656 


EMT260 

EMT261 

EMT262 

EMT263 

EMT264 

EMT265 

EMT266 

EMT267 

EMT27 

EMT270 

EMT271 

EMT272 

EMT273 

EMT274 

EMT275 

EMT276 

EMT277 

EMT3 

EMT30 

EMT300 

EMT301 

EMT302 

EMT303 

EMT304 

EMT305 

EMT306 

EMT307 

EMT31 

EMT310 

EMT311 

EMT312 

EMT313 

EMT314 

EMT315 

EMT316 

EMT317 

EMT32 

EMT320 

EMT321 

EMT322 

EMT323 

EMT324 

EMT325 

EMT3% 

EMT327 

EMT33 

EMT330 

EMT331 

EMT332 

EMT333 

EMT 34 

EMT335 

EMT337 

EMT34 

EMT340 

EMT341 


070352 

070364 

070404 

070414 

070424 

070444 

0^0464 

070476 

065666 

070514 

070530 

070546 

070564 

070602 

070620 

070632 

070646 

065454 

065676 

070664 

070704 

070726 

070740 

070752 

070764 

070776 

071006 

065706 

071026 

071040 

071052 

071064 

071104 

071116 

071130 

071142 

m 

071162 
071172 
071200 
071 21 5 

h\i 

071252 

065726 

071264 


071374 

071404 

065736 

071414 

071426 
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EMT342 

EMT343 

EHT344 

EMT345 

EHT346 

EMT347 

EHT35 

EHT350 

EMT351 

EMT352 

EHT353 

EMT354 

EHT36 

EMT37 

EMT4 

EMT40 

EHT41 

EMT42 

EMT43 

EHT44 

EMT45 

EHT46 

EMT47 

EMT5 

EHT50 

EMT51 

EMT52 

EHT53 

EHT54 

EMT55 

EMT56 

EMT57 

EMT6 

EMT60 

EHT61 

EMT62 

EMT63 

EMT64 

EHT65 

EMT66 

EMT67 

EMT7 

EHT70 

EMT71 

CHT72 

EMT73 

EHT74 

EHT75 

EMT76 

EHT77 

ENRGDT 

EQUALS 

ERR = 

ERRNHB 

ERROR = 

ERRTYP 

£RRVEC= 


071 A3A 
071 AA6 
071 A60 
071A72 
071502 
071516 
065746 
071530 
071546 
0715:6 
071562 
' 1572 
Coi "56 
0657 'i 
0654 .i 
065776 
066004 
066014 
066026 
066036 
066046 
066056 
066066 
065470 
066074 
066104 
066116 
066134 
066152 
066162 
066174 
066212 
065476 
066222 
0662*0 
066260 
066274 
066304 
066324 
0e>6344 
066356 
065504 
066370 
066400 
066410 
066426 
066444 
066454 
066474 
066504 
065442 
063532 
040000 
061122 
104000 
060304 
000004 


ERTYOO 

ERTY01 

ERTY02 

ERTV03 

ERTY04 

ERTY05 

ESRC = 

FER = 

FIND = 

FHT16 = 

FNCDTB 

FNCHSK* 

FO = 

FI 

F2 

F3 

F4 

GENBUF 

GET 

GETBUF 

GETINX 

GETSSF 

GETSTS 

GO 

GTSUR = 
HCE = 
HCI = 
HCRC = 
HELP 
HT = 

IAE = 
IBSAVE 
IDXMSK= 
IE = 

ILF = 
ILF02 = 
ILF24 = 
ILF26 = 
ILF30 = 
ILF32 = 
ILF34 = 
ILF36 = 
ILF40 = 
ILF42 = 
ILF44 = 
ILF46 = 
ILF54 = 
ILF56 = 
ILF64 = 
ILF66 = 
ILF 74 = 
ILF 76 = 
ILR = 
ILRG50= 
ILRG52= 
ILRG54= 
ILRG56= 


061130 

061135 

061145 

061154 

061162 

061165 

004000 

000020 

000001 

010000 

064704 

000077 

000002 

000004 

000010 

000020 

000040 

034640 

035534 

001336 

001526 

034514 

035450 

000001 

104407 

000200 

002000 

000400 

101716 

000011 

002000 

060302 

000077 

000100 

000001 

000002 

000024 

000026 

000030 

000032 

000034 

000036 

000040 

000042 

000044 

000046 

000054 

000056 

000064 

000066 

C00074 

000076 

000002 

000050 

000052 

000054 

000056 


I LRG60= 
ILRG62= 
ILRG64= 
ILRC66= 
ILRG70= 
ILRG72= 
IIRG74= 
ILRG76= 
IOTVEC= 
IPCKO = 
IPCK1 = 
IPCK2 = 
IPCK3 = 
IR 

IVC = 
LBC = 
L8T = 
LF 

LODEV 

LS 

LSC = 
LST = 
LSTRK 
MCLK = 
MCPE = 
MDF = 
HOPE = 
HEDEN6 
HFGFIL 
HI 

MIXED 
HOC = 
HOH = 
MOL = 
HRD = 
MS 

MSC = 
MSDRVS 
HSE = 
HSER = 
HSGDRV 
HSHELP 
HUR = 
HUD = 
MWP = 
MXF = 
N 

NDTMSK= 
NED = 
NEM = 
NONE 
NOP = 
NOTAVL 
NOTPRS 
NOTRM 
NSA = 
OCC = 


000062 
CC0064 
000066 
000070 
000072 
000074 
000076 
000020 
000001 
000002 
04 
000010 
000100 
010000 



= 004000 


001334 

004000 

020000 

000100 

000400 

001512 

103726 



064462 


000200 

064476 

063550 

001000 

000010 

000010 

001000 

064672 

115760 

010000 

004000 

064665 

064576 

064561 

064527 


L 


B 6 


SEO 0272 


OFD = 
OFFSET= 
OH = 
ONES 
OPE = 
OPI = 
OR = 
PACACK= 
PAKACK= 
PAR = 
PAT = 
PDA = 
PFECH 
PFECHl 
PFECH2 
PFECH3 
PFECH4 
PGE = 
PGM = 
PHA = 
PIP = 
PIRO = 
PIRQVE= 
PLFS = 
PRIERR 
PRO = 
PR1 = 
PR2 = 
PR3 = 
PR4 = 
PR5 = 
PR6 = 
PR7 = 
PS = 
PSEL = 
PSW = 
PUT 
PUTBUF 
PUTINX 
PWRVEC= 
QUES 
RCLSTS 
RD = 

RDCHR = 
RDLIN = 
RDOCT = 
RDY = 
READY 
RE CAL = 
RESREG= 
RESVEC= 
REX = 
R6 = 

RGDTPT 
RH = 
RIP = 
RLEASE= 


000200 

000014 

000C01 

065054 

020000 

020000 

000200 

000022 

000022 

000010 

000020 

000400 

061172 

061202 

061270 

061306 

061314 

002000 

001000 

000200 

020000 

177772 

000240 

002000 

036552 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

002000 

177776 

036004 

001412 

001555 

000024 

063541 

047246 

000070 

104411 

104412 

104413 

000200 

007524 

000006 

104415 

000010 

010000 

040000 

065014 

000072 

000020 

000012 


RMAS « 

RHASI 

RHASO 

RMBA * 

RMBAE * 

RMBAEI 

RMBAE 0 

RMBAI 

RHBAO 

RHCS1 = 

RMCS11 

RHCS10 

RHCS2 = 

RMCS2I 

RHCS20 

RHCS3 = 

RMCS3I 

RHCS30 

RHDA = 

RMDAI 

RHDAO 

RHDB = 

RHDBI 

RHDBO 

RMDC = 

RHDCI 

RHDCO 

RHDS - 

RHDSI 

RHDSO 

RHDT = 

RMDTI 

RHDTO 

RMEC1 = 

RHEC1I 

RMEC10 

RMEC2 = 

RMEC2I 

RHEC20 

RMER1 = 

RHER1I 

RHER10 

RHER2 = 

RMER21 

RHER20 

RHHR = 

RMHRI 

RHHRO 

RMLA = 

RMLAI 

RHLAO 

RMHRI - 

RMHRI I 

RHHR 10 

RHHR2 = 

RHMR2I 

RHHR20 



001412 
000010 
001346 
0014 


001410 

001464 

001344 

001420 

000022 

001360 

001434 

000034 

001372 

001446 

000012 



001364 

001440 

000044 

001402 

001456 

000046 

001404 

001460 

000014 

001352 

001426 

000042 

001400 

001454 

000036 

001374 

001450 

000020 

001356 

001432 

000024 

001362 

001436 

000040 

001376 

001452 







C 6 


SEQ 0273 
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RHOF - 000032 

STSD4 


7 [AI.HiMl! 

TST12 


016560 

SATY3 

063206 

(GTSUR 

061720 

RMOFI 001370 

STSF 


• f4'f^P§Fg 

TST13 


017220 

(ATY4 

063216 

(GT42P 

031366 

RMOFO 001444 

STSH1 


7 rl| 

TST14 


017674 

SAUTOB 

001150 

(HD = 

000000 

RMR = 000004 

STSH2 



TST15 


020516 

(BASE 

001276 

(MISTS 

001100 

RMSN = 000030 

STSH3 


v 

TST16 


021260 

(8DADR 

001136 

(HIOCT 

062712 

RMSNI 001366 

STSH4 



TST17 


022022 

S8DDAT 

001142 

(ICNT 

001120 

RMSNO 001442 

SUR 


» * ikkI 

TST2 


010076 

JBEIL 

001212 

(ILLUP 

063162 

RMUC = 000002 

SUREG 


i i 

TST20 


022374 

$8 IN 

056104 

(INTAG 

001151 

RMUC I 001340 

SUO 

x 


TST21 


022746 

(CDU1 

001302 

(ITEMS 

001130 

RMUCO C 01414 

SWOO 

x 

• if# 

TST22 


023310 

SCDU2 

001304 

(LF 

001220 

RQA = 1 00000 

SU01 

s 

7 iTi 

TST23 


023632 

JCHARC 

057110 

(LFLG 

063443 

ROB = 040000 

SU02 

x 

i ij7 

TST24 


024150 

SCKSUR 

061630 

(LPADR 

001122 

RTC = 000016 

SW03 

x 

000010 

TST25 


025062 

(CMTAG 

001114 

(LPERR 

001124 

R6 =*000006 

SU04 

x 

000020 

TST26 


025704 

(CM3 = 

000000 

(MAORI 

001254 

R7 =*000007 

SW05 

x 

000040 

TST27 


026606 

SCM4 = 

000005 

(MADR2 

001260 

$ADMSK= 000377 

SW06 

s 

000100 

TST3 


011010 

(CNTLC 

062526 

(MADR3 

001264 

SAVREG= 104414 

SU07 

x 

000200 

TST30 


027674 

(CNTLG 

062540 

(MADR4 

001270 

SA1 = 000001 

SU08 

X 

000400 

TST31 


030520 

(CNTLU 

062533 

(MAIL 

001222 

SA16 = 000020 

SW09 

X 

001000 

TST4 



SCPUOP 

001250 

(MAMS1 

001252 

SA2 = 000002 

SU1 

x 


TST5 



SCRLF 

001217 

(MAMS2 

001256 

SA4 = 000004 

SU10 

x 

002000 

TST6 



SDBLK 

056322 

SMAMS3 

001262 

SA8 = 000010 

SU11 

x 

004000 

TST7 


•1 LTJTfiiiffi 

SDDUO 

001306 

(MAMS4 

001266 

SC = 100000 

SU12 

x 

010000 

TYP8N 

x 


(DDU1 

001310 

(MBADR 

001102 

SCOPE = 000004 

SU13 

x 

FiWi • i 

TYPOS 

X 


(DDU2 

001312 

(MFLG 

063442 

SCTMSG 063446 

SW14 

x 

IiMi • i 

TYPE 

X 


SDDU3 

001314 

(MNEU 

062556 

SCTMSK= 003700 

SW15 

X 

■ fill • i iK 

TYPOC 

X 


SDDU4 

001316 

(MSGAD 

001236 

SCO = 000100 

SU2 

x 

Wi« 1 1 -'■#»*§ 

TYPON 

X 


(DDU5 

001320 

(MSGLG 

001240 

SCI = 000200 

SU3 

x 

[»[•!« « •K'fe’Si 

TYPOS 

X 


(DDU6 

001322 

(MSGTY 

001222 

SC2 = 000400 

SU4 

x 

iijiti v ^ .fip 

UNS 

X 


SDDU7 

001324 

(MSUR 

062545 

SC3 = 001000 

SU5 

x 

|m|i 1 ipS 

UNTNSK 

k x 

mmm 

(DEVCT 

001232 

(MTYP1 

001253 

SC4 = 002000 

SW6 

x 

I*I*I*f * 'BspS 

UNTOFF 

064615 

(DEVM 

001300 

(MTYP2 

001257 

SEARCH= 000030 

SW7 

x 

1*1*1 v * *1 

UNTON 


064626 

(DOAGN 

031412 

(MTYP3 

001263 

SECERR 037404 

SU8 

x 

■*I*l*r ' 

UPE 

X 

020000 

SDTBL 

056312 

(MTYP4 

001267 

SEEK = 000004 

5W9 

x 

li'illi 1 

USE 

X 

040000 

(ENDAD 

031402 

(MXCNT 

057576 

StKSTS 044174 

SYSTAT 

064504 

USRFIL 

104734 

(ENDCT 

031240 

(NULL 

001170 

SMUT 031422 

TADMSK 

x 

177400 

UO 

X 


(ENULL 

031416 

(NWTST= 

000001 

SHUT2 062570 

TAG 

x 

020000 

U1 

X 


SEN 

001242 

(OCNT 

056554 

SIZClK 036234 

TAGADR 

x 

001114 

U2 

X 

[•A'!*!® • 

SENVM 

001243 

(OMODE 

056556 

SKI = 040000 

TAP 

x 


VV 

X 

000100 

SEOP 

031204 

(OVER 

057562 

SNGPRT= 020026 

TA1 

x 


UC 

X 

000040 

SEOPCT 

031232 

(PASS 

001230 

SSE = 000040 

TA2 

x 

7 iipimvR 

UCO 

X 

000050 

JEOSP 

031146 

(PASTM 

001106 

SSEI = 001000 

TA4 

x 


UCE 

X 

040000 

SERFLG 

001117 

(POWER 

063170 

SSF = 020000 

TA8 

: 

004000 

UCEHJ 

X 

010000 

(ERMAX 

001131 

(PURDN 

063022 

SSFENB 001514 

TBITVE 

x 


WCELO 

X 


(ERROR 

057710 

SPURMG 

063156 

SSFIL 105742 

TIMOUT 

036356 

WCF 

X 

ijiji 

JERRPC 

001132 

(PWRUP 

063074 

STACK = 001100 

TKVEC 

x 

000060 

UCH 

X 

mil iEtBbkss? 

SERRT6 

001604 

(QUES 

001216 

STAMDA 006654 

TPVEC 

X 

000064 

UO 

X 


SERTTL 

001126 

(RDCHR 

062172 

START 005434 

TRAPVE 

X 

000034 

UH 

x 


SESCAP 

001210 

(RDLIN 

062262 

START1 005424 

TRE 

x 

040000 

ULE 

X 


SETABL 

001242 

(RDOCT 

062612 

START2 005440 

IRTVEC 

x 

000014 

URL 

X 

iiij 

SETEND 

001326 

(R9SZ = 

000010 

STCDRV 055232 

TST 

- 

010000 

XSIZ 



(FATAL 

001224 

(RE SRE 

055774 

STIMER 036520 

TSTNMB 

061120 

XXOP 


001332 

SFFLG 

063444 

JRM80 

064522 

STKLMT= 177774 

TSTPRP 

031456 

Y 


064674 

SFILLC 

001172 

(RTNAD 

031414 

SfOP 057662 

fSTQUE 

001466 

ZEROS 


065116 

(FILLS 

001171 

(SAVRE 

055736 

STSD1 101606 

TST1 


007676 

(APTHD 

001100 

(GDADR 

001134 

(SAVR6 

063166 

STSD2 101624 

TST10 


015004 

SATYC 


063224 

(GPDAT 

001140 

(SCOPE 

057114 

STSD3 101644 

TST11 


015742 

SATY1 


06320C 

(GET42 

031372 

(SETUP= 

000137 



D 6 
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tSTUP = 

SSVLAD 

SSVPC = 

SSUR = 

SSWREG 

SSWR MK= 

SSW08T 

STESTN 

STINES 

STKB 

STKCNT 


1 77777 
057526 
000210 
167400 
001244 
000000 
057600 
001226 
001206 
001162 
061320 


S7KINT 

STKQEN- 

STKQIN 

STKOOU 

STKQSR 

ST?S 

STKSRV 

STMPO 

STNP1 

STMP2 

STNP3 


061330 

061327 

061322 

061324 

061326 

001160 

061400 

001174 

001176 

001200 

001202 


STNP4 

STN = 

STPB 

STPFLG 

$TPS 

STRAP 

STRAP2 

STRP = 

STRPAO 

STSTM 

STSTNM 


001204 

000032 

001166 

001173 

001164 

062714 

062754 

000016 

062766 

001104 

001116 


STTYIN 

STYPBN 

STYPOS 

STVPE 

STY PEC 

STYPEX 

STYPOC 

STVPON 

STYPOS 

SUNIT 

SUN I TM 


062516 
056032 
0561 06 
056560 
056772 
057112 
056356 
056372 
056332 
001234 
001110 


SUSUR 
SVECT I 
SVECT2 
SXOFF = 
SXON = 
SXTSTR 
SSGET4= 
SSSW06= 
SOFILL 
.sx = 


V '1246 
C01272 
001274 
000023 
000021 
057136 
000000 
000032 
056555 
001100 


. ASS. 106040 000 

000000 001 

ERRORS DETECTED: 0 
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SEO 0275 


SSGET4 

SSSW08 


SOFILL 
S40CAT 
SAP T HO 
SASTAT 


14-20 

41-1 

41-1 

41-1 

41-1 

41-1# 

41-1# 

39-1 

41-1 

5-8 

48-1 


14-20# 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 ! 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# ' 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# i 

41- 1# 
39-1# 

42- 1 

41-1# 

39-1* 

41-1# 

39-1* 

41-1# 

41-1# 








1 

i 


5-8# 

48-1 


SATY1 

48-1# 




SATV3 

40-1 

48-1 # 



SATY4 

42-1 

48-1# 



SATYC 

48-1 

48-1# 



SAUT06 

6-0# 

10-28* 

44-1 

44-1 

S6ASE 

6-0# 

10-75 

11-33 

11-42* 


13-872 

13-948 

13-:26 

1 3-; 26 


13-027 

13-E36 

20-36 

21 -So 

sec ADR 

6-0# 

13-442* 

13-443* 

13-453 

S600AT 

6-0# 

13-435* 

13-450* 

13-457 


13-E11* 

18-82* 

24-47* 

24-48* 


S8ELL 

S6IN 

SC0U1 

SCOW 2 

SCHARC 

SCKSWR 

SCM3 

SCH4 

SCHTAG 

SCNTLC 

SCNTLG 

SCNTLU 

SCPUOP 

SCRLF 

S06LK 

SOOWO 

SD0W1 

SD0W2 


25-50* 

25-153* 

25-267* 

25-398* 

25-538* 

25-712* 

28-148* 

30- 79* 

31- 57* 

32- 189* 

33- 57* 

34- 116* 

34- 317* 

35- 46* 
6 - 0 # 

37-1 

6 - 0 # 

6 - 0 # 

40-1 

44-1# 

6-0 

6-0 

6 - 0 # 

6 - 0 # 

44-1 

44-1 

44-1 

6 - 0 # 

6 - 0 # 

42-1 

6 - 0 # 

6 - 0 # 


25-60* 

25-154 

25-268* 

25-399* 

25-562* 

25-713 

28-173* 

30- 80* 

31- 71* 

32- 205* 

33- 60 

34- 135* 

34- 360* 

35- 62* 
42-1 
37-1# 


40-1# 

46-1 

6 - 0 # 

6-0 

6 - 0 # 

10-23 

44-1 

44-1# 

44-1 

10-48 


25-61* 

25-166* 

25-280* 

25-413* 

25- 623* 

26- 39* 
28-187* 

30- 82 

31- 85* 

32- 222* 

33- 69* 

34- 149* 
34-373* 


25-63 

25-167* 

25-281* 

25-414* 

25- 624* 

26- 53* 
28-188* 

30- 92* 

31- 99* 

32- 240* 

33- 70* 

34- 163* 
34-386* 


44-1 

12- 54 

13- <09 

23- 12 
13-754* 
13-748* 

24- 51 

25- 81* 
25-179* 
25-310* 
25-428* 
25-630 
28-37* 
28-201* 

30- 101* 

31- 113* 

32- 254* 

33- 72 

34- 193* 
34-399* 


13-2 
13— <92 

27- 23 
13-755* 
13-762* 

24- 69* 

25- 82* 
25-180* 
25-311* 
25-429* 
25-638 

28- 71* 
28-217* 
30-102* 

32-35* 

32- 270* 

33- 81* 

34- 194* 
34-421* 


13-33 

13-s48 

29- 15 
13-765 
13-770 

24- 75* 

25- 83 
25-196* 
25-325* 
25-459* 
25-654* 
28-72* 

30- 29* 
30-104 

32- 49* 

33- 16* 

33- 82* 

34- 195 

34-446* 


13-146 
13— >02 
43-25 
18-84* 
13-A19* 

24- 91* 

25- 103* 
25-197* 
25-326* 
25-460* 
25-655* 
28-73 
30-30* 
30-114* 

32- 65* 

33- 17* 

33- 84 

34- 207* 
34-461* 


13-244 
1 3— >57 
59-2 
59-8 
13-A50* 

24- 108* 

25- 104* 
25-222* 
25-340* 
25-482* 
25-656 
28-93* 
30-32 
30-115* 

32- 82* 

33- 19 

33- 94* 

34- 208* 
34-474* 


13-337 

13-707 


13-B60* 

24- 124* 

25- 105 
25-223* 
25-341* 
25-483* 
25-682* 
28-104* 
30-42* 
30-124* 

32- 103* 

33- 28* 

33- 103* 

34- 244* 
34-487* 


13-462 

13-756 


13-C63* 

24- 152* 

25- 136* 
25-237* 
25-357* 
25-497* 
25-683* 
28-105* 
30-51* 
30-125* 

32- 120* 

33- 29* 

34- 31* 
34-260* 
34-500* 


13-558 

13-862 


13-C76* 

25-36* 

25-137* 

25-238* 

25-358* 

25-498* 

25-684 

28-111 

30-59 

30-127 

32- 134* 

33- 31 

34- 47* 
34-274* 
34-521* 


13-651 

13-A60 


13-C89* 

25-37* 

25-138 

25-252* 

25-383* 

25-519* 

25-699* 

28-122 

30- 69* 

31- 27* 

32- 159* 

33- 41* 

34- 67* 
34-292* 
34-538* 


13-775 

13-673 


13-002* 

25-49* 

25-152* 

25-253* 

25-384* 

25-520* 

25-700 

28-135* 

30- 70* 

31- 41* 

32- 174* 

33- 50* 

34- 87* 
34-305* 
34-554* 


35-78* 

42-1 

37-1* 

35-98* 

42-1 

37-1* 

35-112* 

44-1 

59-1 

44-1 

59-6 

44-1 

59-8 

59-10 

59-11 





40-1* 

46-1 

40-1* 

40-1* 










6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0# 

6-0# 

6-0# 

6-0# 

10-23 

44-1 

10-23 

44-1 

10-23 
44-1# . 

10-23 

10-23 

10-23 







44-1# 












10-80 

42-1 

38-1# 

ttS* 

im 

11-28 

43-96 

11-62 

43-106 

11-100 

43-118 

12-25 

43-126 

12-60 

43-146 

0 

1 1 

40-1 

44-1 

40-1 

44-1 

40-1 

44-1 
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SEQ 0276 


S0DW3 

6-0# 














SDDU4 

6-0# 














SDDW5 

6-0# 














SDDW6 

6-0# 














SDDU7 

6-0# 














SOEVCT 

6-0# 





11-63* 

11-70* 








SO EVP 

6-0# 

10-67* 

10-78 

10-106* 

10-110* 

11-97* 

11-98 

12-4 

12-38 

13-29* 

14-28* 


SOOAGN 

H-20 

H-20 

14-20# 












SOTBL 

38-1 

38-1# 













SEND AO 

5-5 

10-28 

14-20# 

42-1 











SENOCT 

10-23 

14-20# 













SENULL 

H-20# 



42-1 


48-1 









St’ MV 

6-0# 

10-28 

40-1 

48-1 









SENVN 

6-0# 

10-23 

10-71 

40-1 

40-1 

48-1 









SEOP 

H-20# 

14-29 













SEOPCT 

10-23* 

14-20 

14-20# 












SEOSP 

H-9# 














SERFIG 

6-0# 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1* 

42-1 

42-1 

42-1* 





SERflAX 

6-0# 

10-23* 

41-1 

41-1 

41-1 

41-1* 









SERRCR 

10-23 

42-1# 













SERRPC 

6-0# 

42-1 

42-1 

42-1 

42-1* 

42-1* 

43-46 








SERRTB 

8-0# 

43-64 


14-20* 


42-1 









SERTTl 

6-0# 

14-20 

14-20 

42-1 

42-1* 








SESCAP 

6-0# 

10-23* 

41-1* 

42-1 

42-1 

42-1 

42-1 








SETABL 

6-0# 














SETEND 

5-8 

6-0# 













SFATAL 

6-0# 

48-1* 













SFFLG 

48-1 

48-1# 

48-1* 

48-1* 

48-1* 










SFILLC 

6-0# 

40-1 

40-1 

40-1 











SF ILLS 

6-0# 

40-1 

40-1 












SGDAOR 

6-0# 

13-441* 

13-453 

13-753* 

13-765 

18-83* 

59-8 








SGOOAT 

6-0# 

13-433* 

13-434* 

13-451* 

13-452* 

13-457 

13-746* 

13-747* 

13-763* 

13-764* 

13-770 

13-A20* 

13-A21* 

13-A51* 


13-A52* 

13-661* 

13-662* 

13-C64* 

13-C65* 

13-C77* 

13-C78* 

13-C90* 

13-C91* 

13-D03* 

13-004* 

13-El 2* 

13-El 3* 

18-81* 


24-49* 

24-50* 

24-51 

24-67* 

24-68* 

24-74* 

24-76* 

24-88* 

24-89* 

24-90* 

24-106* 

24-107* 

24-122* 

24-123* 


24-150* 

24-151* 

25-38* 

25-51* 

25-62* 

25-63 

25-75* 

25-80* 

25-83 

25-94* 

25-102* 

25-105 

25-131* 

25-134* 


25-135*- 

25-138 

25-150* 

25-151* 

25-154 

25-161* 

25-544* 

25-551* 

25-552* 

25-553* 

25-554* 

25-558* 

25-560 

25-622* 


25-637* 

25-638 

25-648* 

25-653* 

25-656 

25-666* 

25-679* 

25-684 

25-696* 

25-697* 

25-698* 

25-700 

25-710* 

25-711* 


25-713 

26-40* 

26-54* 

28-36* 

28-48* 

28-68* 

28-73 

28-92* 

28-106* 

28-107* 

28-134* 

28-147* 

28-171* 

28-172* 


28-186* 

28-199* 

28-200* 

28-215* 

28-216* 

30-31* 

30-32 

30-41* 

30-57* 

30-59 

30-68* 

30-81* 

30-82 

30-91* 


30-103* 

30-104 

30-113* 

30-126* 

30-127 

31-25* 

31-26* 

31-39* 

31-40* 

31-58* 

31-59* 

31-72* 

31-73* 

31-86* 


31-87* 

31-100* 

31-101* 

31-114* 

31-115* 

32-33* 

32-34* 

32-47* 

32-48* 

32-63* 

32-64* 

32-80* 

32-81* 

32-101* 


32-102* 

32-118* 

32-119* 

32-132* 

32-133* 

32-157* 

32-158* 

32-173* 

32-175* 

32-187* 

32-188* 

32-203* 

32-204* 

32-220* 


32-221* 

32-238* 

32-239* 

32-252* 

32-253* 

32-268* 

32-269* 

33-18* 

33-19 

33-30* 

33-31 

33-40* 

33-71* 

33-72 


33-83* 

33-84 

33-92* 

34-29* 

34-30* 

34-45* 

34-46* 

34-65* 

34-66* 

34-85* 

34-86* 

34-114* 

34-115* 

34-133* 


34-134* 

34-147* 

34-148* 

34-161* 

34-162* 

34-172* 

34-191* 

34-195 

34-209* 

34-210* 

34-242* 

34-243* 

34-258* 

34-259* 


34-272* 

34-273* 

34-290* 

34-291* 

34-303* 

34-304* 

34-318* 

34-319* 

34-327* 

34-358* 

34-359* 

34-371* 

34 372* 

34-384* 


34-385* 

34-397* 

34-398* 

34-419* 

34-420* 

34-444* 

34-445* 

34-459* 

34-460* 

34-472* 

34-473* 

34-485* 

34-486* 

34-498* 


34-499* 

34-519* 

34-520* 

34-536* 

34-537* 

34-552* 

34-553* 

35-44* 

35-45* 

35-60* 

35-76* 

35-77* 

35-96* 

35-97* 


35-110* 

35-111* 

59-1 

59-6 

59-8 

59-10 

59-11 








SGET42 

12-34 

12-43 

13-30 

14-20# 










SGT42P 

14-20 

14-20# 













SGTSWR 

44-1# 

46-1 

46-1 












SHD 

4-488 

4-488 

4-488 












SHIBTS 

5-8# 














SMI OCT 

45-1# 

45-1* 













SICNT 

6-0# 

41-1 

41-1 

41-1 

41-1* 

41-1* 
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S1LLUP 

47-1 

47-1 

47-1# 





SINTAG 

6-0# 

44-1 

44-1 

44-1 

44-1 

44-1* 

42-1* 

SHEW 

6-0# 

42-1 

42-1 

42-1 

42-1 

42-1 

SLF 

6-0# 

40-1 

40-1 

42-1 

42-1 

44-1 

44-1 

SLFLG 

48-1# 

48-1* 



41-1 



SLPADR 

6-0# 

10-23* 

41-1 

41-1 

41-1* 

41-1* 

SLPERR 

6-0# 

10-23* 

41-1 

41-1 

41-1 

41-1* 

42-1 

WADR1 

6-0# 







SMAOR2 

6-0# 







WADR3 

6-0# 







SHADR4 

6-0# 






13-33 

WAIL 

5-8 

5-8 

6-0# 

10-23 

10-28 

13-2 

13-872 

13-948 

13- -26 

13-;26 

41-1 

13-<09 

13-<92 

1 3-=48 


13-D27 

13-E36 

40-1 

42-1 



MANSI 

6-0# 







WANS2 

6-0# 







IHANS3 

6-0# 







WANS4 

6-0# 







WBAOR 

5-8# 







WFLG 

48-1 

48-1# 

48-1* 

48-1* 

i 



WNEU 

44-1 

44-1# 






WSGAD 

6-0# 

48-1 

48-1* 





WSGLG 

6-0# 

48-1* 



$ 



WSGTV 

6-0# 

48-1 

48-1 

48-1* 

48-1* 



WSUR 

44-1 

44-1# 






WTYP1 

6-0# 







WTYP2 

6-0# 







WTYP3 

6-0# 







WTYP4 

6-0# 







WXCNT 

41-1 

41-1 

41-1 

41-1# 




SNULL 

6-0# 

40-1 

40-1 

40-1 




SNWTST 

13-F 

13-2# 

13-2# 

13-33 

13-33# 

13-33# 

13-146 


13-337# 

13-462 

13-462# 

13-462# 

13-948# 

13-558 

13-558# 

13-558# 


13-872# 

13-872# 

13-948 

13-948# 

13-.-26 

1 3— : 26# 


1 3— <92 

1 5— <92# 

13-<92# 

13- =4 8 

13-=48# 

13-=48# 

13->02 


im 

13-756 

13-756# 

13-756# 

13-862 

13-862# 

13-862# 


13-027# 

13-E36 

13-E36# 

13-E36# 



SOCNT 

39-1# 

39-1* 

39-1* 





SOflOOE 

39-1 

39-1# 

39-1* 

39-1* 

39-1* 

39-1* 


$OVER 

41-1 

41-1 

41-1 

41-1 

41-1# 



SPASS 

6-0# 

10-23* 

14-20 

14-20 

14-20 

14-20* 

14-20* 

SPASTfl 

5-8# 

47-1# 






SPOUER 

47-1 






tPWRDN 

SPtMMG 

m 

47-1 

47-1# 





SPWRUP 

47-1 

47-1# 






MUES 

SR2A 

6-0# 

46-1 

40-1 

40-1 

42-1 

42-1 

44-1 

44-1 

SftOCHR 

44-1# 

46-1 

46-1 





MOOEC 

46-1 







SftDLlN 

44-1# 

46-1 

46-1 





MOOCT 

45-1# 

46-1 

46-1 





SPDSZ 

44-1 

44-1# 







36-1# 

10-91 

46-1 

43-28 

49-26# 





SftTNAD 

14-20# 








SEC 0277 

42-1* 43-41 

44-1 

41-1* 


13-146 

13-244 

13-337 

13-462 

13-558 

13-651 

13-775 

13— >02 

13— >57 

13-707 

13-756 

13-862 

13-A60 

13-873 

13-146# 

13-146# 

13-244 

13-244# 

13-244# 

13-337 

13 

-337# 

13-651 

13-651# 

13-651# 

13-775 

13-775# 

13-775# 

13 

-872 

13-.-26# 

13-;26 

13-.-26# 

13-;26# 

13-<09 

13-<09# 


-<09# 

13->02# 

l3->02# 

13— >57 

13— >57# 

13— >57# 

13-707 

i] 

-70 7# 

13-A60 

13-A60# 

13-A60# 

13-873 

13-873# 

13-873# 


-027 

41-1 

41-1 

41-1 







44-1 44-1 
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w $ 


C EQ 0278 


SSAVR6 

47-1 

47-1# 

47-1* 

47-1* 

47-1* 










SSAVRE 

36-IP 

46-1 

46-1 












SSCOPE 

SSETUP 

10-23 

4-785 

41-1# 

4-785 

4-785 

4-785 

4-785 

4-785 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

10-23 


10-23 

10-23 

10-23 

10-23 

10-25 

10-23 

10-23 

10-23 

10-23 

10-23 

10-23 

10-28 

10-28 

10-28 


14-20 

14-20 

41-1 

42-1 

42-1 

42-1 

42-1 

4*-1 

44-1 

44-1 

44-1 

44-1 

SSTUP 

4-785 

4-785 

4-785 

4-785 

4-785 

4-785 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 


4-785# 

4-785# 

4-785# 

4-785# 









SSVLAO 

41-1 

41-1# 













SSVPC 

5-5 

5-5# 













SSW08T 

41-1 

41-1# 













SSWR 

4-477# 

4-488 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

6-0 

6-0 

6-0 

10-23 

13-872 


10-23 

10-23 

10-23 

10-23 

13-2 

13-33 

13-146 

13-244 

13-337 

13-462 

13-558 

13-651 

13-775 


13-948 

1 3— : 26 

13-i26 

13-<09 

1 3-<92 

13-=48 

13- >02 

13— >57 

13-707 

13-756 

13-862 

13-A60 

13-673 

13-027 


13-E36 

14-20 

14-$0 

14-20 

14-20 

14-20 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 


41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

42-1 

42-1 


4 2-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

47-1 



SSUREG 

6-0# 

10-23 



4-489 



4-489 







SSWRWK 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

41-1 

41-1 

41-1 

41-1 

41-1 


41-1 

41-1 

41-1 

41-1 

41-1 










STESTN 

6-0# 

13-2* 

13-33* 

13-146* 

13-244* 

13-337* 

13-462* 

13-558* 

13-651* 

13-775* 

13-872* 

13-948* 

13-:26* 

13-:26* 


1 3-<09* 

13-<92* 

13-=48* 

1 3->02* 

1 3— >57* 

13-707* 

13-756* 

13-862* 

13-A60* 

13-673* 

13-027* 

13-E36* 

41-1* 

43-57 

STINES 

6-0# 

10-23* 

12-46* 

13-E36* 

14-20* 

41-1 

41-1 

41-1 

41-1* 

41-1* 



STUB 

6-0# 

40-1 

40-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 





STKCNT 

44-1 

44-1 

44-1# 

44-1* 

44-1* 

44-1* 









STKINT 

11-4 

12-49 

44-1 

44-1 

44-1# 










STKQEN 

44-1 

44-1 

44-1# 












STKQIN 

44-1 

44-1 

44-1# 

44-1* 

44-1* 

44-1* 

44-1* 








STKQOU 

44-1 

44-1 

44-1# 

44-1* 

44-1* 

44-1* 









STKQSR 

44-1 

44-1 

44-1 

44-1# 











STKS 

6-0# 

40-1 

40-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1* 

44-1* 

44-1* 

44-1* 

44-1* 

44-1* 

STKSRV 

44-1 

44-1# 













STNPO 

6-0# 

13-46* 

13-158* 

13-256* 

13-349* 

13-474* 

13-570* 

13-663* 

13-788* 

13— :38* 

1 3—; 39* 

13— <22* 

13-768* 

13-874* 


13-A73* 

13-B88* 

13-005* 

13-D42* 

13— E 14* 

17-59 

18-85* 

20-41* 

21-35* 

27-29* 

27— 3l 

59-3 

59-6 

59-10 

STNP1 

6-0# 

11-13* 

11-14 

11-16 

11-36* 

11-38 

11-42 

11-50* 

11-52 

11-56 

11-66* 

11-67 

11-73 

11-75 


11-76 

11-78 

11-83* 

11-84 

11-87 

11-88 

11-90 

11-95 

13-47* 

13-159* 

13-257* 

13-350* 

13-475* 

13-571* 


13-664* 

13-789* 

13-.-39* 

13-;40* 

13-<23* 

13-769* 

13-875* 

13-A74* 

13-889* 

13-006* 

13-043* 

13-El 5* 

17-60 

20-42* 


20-43 

21-36* 

21-37 

26-$4* 

26-25* 

26-37 

26-39 

27-28* 

27-37 

59-3 

59-5 

59-10 

STNP2 

6-0# 

26-27* 

26-28* 

26-50 

26-53 

59-5 









STNP3 

6-0# 














STNP4 

6-0# 














STN 

4-478# 

4-488 

13-2 

13-2 

13-2 

13-2# 

13-33 

13-33 

13-33 

13-33# 

13-146 

13-146 

13-146 

13-146# 


13-244 

13-244 

13-244 

13-244# 

13-337 

13-337 

13-337 

13-337# 

13-462 

13-462 

13-462 

13-462# 

13-558 

13-558 


13-558 

13-558# 

13-651 

13-651 

13-651 

13-651# 

13-775 

13-775 

13-775 

13-775# 

13-872 

13-872 

13-872 

13-872# 


13-948 

13-948 

13-948 

13-948# 

13-:26 

13-:26 

13-:26 

13-.-26# 

13—; 26 

13— ;26 

13— ;26 

13-;26# 

13-<09 

1 3-<09 


13-<09 

13-<09# 

1 3— <92 

13-<9£ 

13-<92 

13-<92# 

1 3-=48 

1 3— =48 

1 3— =48 

13-=48# 

i3->02 

1 3->02 

1 3->02 

1 3->02# 


13->57 

1 3— >57 

13->57 

13->5?# 

13-707 

13-707 

13-707 

13-707# 

13-756 

13-756 

i 3-756 

13-756# 

13-862 

13-862 


13-862 

1 3-862# 

13-A60 

13-A60 

13-A60 

13-A60# 

13-873 

13-673 

13-673 

13-673# 

13-027 

13-027 

13-027 

13-027# 


13-E36 

13-E36 

13-E36 

13-E36# 

41-1 

41-1 









STP6 

6-0# 

40-1 

40-1 

40-1* 











STPFLG 

6-0# 

40-1 

40-1 

40-1 











STPS 

6-0# 

40-1 

40-1 

40-1 











STRAP 

10-23 

46-1# 













STRAP2 

46-1 

46-1# 













STRP 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 


46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 
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SEO 0279 


STRPAO 

STSTN 

STSTNH 

STTYIN 

STYP0N 

STYPDS 

STYPE 

STYPEC 

STYPEX 

STYPOC 

STYPON 

JTYPOS 

SUN IT 

SUNITfl 

SUSWR 

SVECT1 

SVECT2 

SXOFF 

SXON 

SXTSTR 


46-1 

46-1 

46-1# 

46-1 

5- 8 # 

6 - 0 # 
44-1 

37- 1# 

38- 1# 
40-1# 
40-1 
40-1 

39- 1# 
39-1 

39- 1# 
6 - 0 # 

5- 8# 

6 - 0 # 
6 - 0 # 
6 - 0 # 

40- 1 

40- 1 

41- 1# 
48-1 


46-1 

46-1 

46-1# 

46-1# 

46-1 

46-1 

46-1# 

46-1 

46-1 

46-1# 

46-1 

46-1 

46-1# 

46-1 

46-1 

46-1# 

46-1 

46-1 

46-1# 

46-1 

46-1 

46-1# 

46-1 

46-1 

46-1# 

X'M' 

* ' A. 

46-1 

46-1# 

46-1 

46-1# 

46-1 

46-1# 

46-1 

46-1# 

12-45* 

44-1 

14-20* 

44-1 

41-1 

44-1 

41-1 

44-1 

41-1 

44-1# 

41-1 

41-1 

41-1* 

41-1* 

42-1 

42-1 

42-1 

44-4 


46-1 

46-1 

46-1 

<. 0-1 

40-1 

46-1 

39-1# 

46-1 

12-51* 


46-1 

46-1 

46-1 

40-1 

40-1# 

46-1 

46-1 


48-1 

40-1# 


12-56 12-62 24-49 43-22 


11-46 11-56* 


.SX 

5-8 

5-8# 


A16 

4-731# 



A17 

4-730# 


6-0 

ABASE 

4-782# 

6-0 

ACDU1 

6-0 

6-0 


AC0U2 

6-0 

6-0 

31-15# 

ACKSTS 

15-151 

16-136 

ACPUOP 

6-0 

6-0 


A00W0 

6-0 

6-0 


AODWl 

6-0 

6-0 


ADDW10 

6-0 



ADDU11 

6-0 



ADDW1 2 

6-0 



AODWl 3 

6-0 



AODWl 4 

6-0 



AODWl 5 

6-0 

6-0 


ADDW2 

6-0 


ADDW3 

6-0 

6-0 


A0DW4 

6-0 

6-0 


AODW5 

6-0 

6-0 


A00W6 

ADDW7 

6-0 

6-0 


6-0 

6-0 


A0DW8 

6-0 



A00W9 

6-0 



AOEVCT 

6-0 

6-0 


ADEVN 

6-0 

6-0 

13-2# 

ADR 

13-2 

13-2# 

13-337# 

13-462 

13-462# 


13-872# 

13-8*2# 

13-948 


1 3-<92 

1 3— <92# 

1 3-<92# 


13-707# 

13-756 

13-756# 


13-027# 

13-027# 

13-E36 


13-33 13-33# 
13-462# 13-558 
13-948# 13-948# 
1 3— =48 1 3-=48# 
13-756# 13-962 
13-E36# 13-E36# 


13-33# 13-146 
13-558# 13-558# 
13— :26 1 3- r 26# 
13— =48# 1 3->02 
13-862# 13-862# 


13-146 13-146# 13-146# 
13-558# 13-651 13-651# 
1 3- : 26# 13-.-26# 13-;26 
1 3->02 13— >02# 13— >02# 
13-862# 13-A60 13-A60# 


13-146# 13-244 13-244# 
13-651# 13-651# 13-775 
13-;26 13-;26# 13-.-26# 
13— >02# 13— >57 13->57# 
13-A60# 13-A60# 13-673 


13-244# 13-337 1 3-337# 

13-775# 13-775# 13-872 
1 3— <09 1 3-<09# 1 3-<09# 

13->57# 13-707 13-707# 

13-673# 13-673# 13-027 


J 6 


C7RNEA0 RM80 FCTNL PT2 FWCRO V04.00 28- JAN-82 16:38:23 PA6£ S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SEQ 


AENV 

6-0 

6-0 



AENVH 

6-0 

6-0 



AFATAL 

6-0 

6-0 



ALL 

11-69 

49-5# 



ANADR1 

6-0 

6-0 



A8A0R2 

6-0 

6-0 



AMADR3 

6-0 

6-0 



ANADR4 

6-0 

6-0 



AMANS1 

6-0 

6-0 



AWAMS2 

6-0 

6-0 



mm$i 

6-0 

6-0 



AMAWl>4 

6-0 

6-0 



ANSGAO 

6-0 

6-0 



ANSGLG 

6-0 

6-0 



AWSGTY 

6-0 

6-0 



ANTYP1 

6-0 

6-0 



AHTYP2 

6-0 

6-0 



ANTYP3 

6-0 

6-0 



AF1TVP4 

6-0 

6-0 



AOE 

4-579# 

50-86 

4-590 

25-307 

25-322 

APASS 

6-0 

6-0 



APE 

4-760# 




APR I OR 

6-0 




APTCSU 

40-1 

48-1 # 



APTENV 

40-1 

42-1 

48-1 

48-1# 

APTSIZ 

10-23 

48-1# 

48-1# 


APTSPO 

40-1 

48-1 


ARCS 

13-44# 

13-52 

13-52# 

13-134# 

13-64# 


13-130# 

13-132# 

13-312# 


13-215# 

13-304# 

\m 

13-229# 

13-310# 


13-380# 

13-391# 

13-397# 

13-401# 


13-492# 

13-501# 

13-505# 

13-516# 


25-322 25-337 25-352 25-356 25-679 25-683 50-77 


13-568# 
13-644# 
13-734# 
13-844# 
13-937# 
1 3— : 44# 
13-;37# 



13-576 
13*446# 
13-738# 
-850# 
-939# 
— : 58# 


13-;45 


ASNOA 

ASNOC 

ASWREG 

ATA 


J-810# 
J-A11# 
>311# 
J-C23# 
J-048# 
13-E75# 
7-0# 
7-0# 
6-0 
4-559# 
50-60 


►—<28 
>*05# 
13— >125# 
13-718# 
13-812# 
13-A15# 
13-015# 
13-C27# 
-070# 
13-E78# 
16-307* 
16-306* 

2^-134 

50-63 


1 


13-576# 

13-661# 

13-745# 

13-856# 

13-961 

13-:67# 

13— ;45# 

13— <28# 

13-= 18# 

13->26# 

13-731# 

13-823# 

13-A24# 

13—017# 

13-C29# 

13-077# 

13-E8Q# 

16-344 

16-343 

25-135 

50-64 


13-588# 

13-669 

13-761# 

13-860# 

13-961# 

13— : 71# 

13-.-59# 

13-<42# 

1 3— =25# 

13— >33# 

13-738# 

13-835# 

13-A28 

13*319# 

13-C31# 

13-081# 

13-E82# 

16-374* 

16-387* 

25-137 

50-67 


13-75# 

13-156# 

13-235# 

13-318# 

13-403# 

13-522# 

13-597# 

13-669# 

13-786# 

13-862# 

13-973# 

13-:83# 

13-.-66# 

13-<49# 

13-*34# 

13->37# 

13-742# 

13-841# 

13-A28# 

13-330# 

13-C38# 

13-083# 

13-E86# 

16-377 

16-388 

28-161 

50-68 


13-84# 

13-164 

13-237# 

13-324# 

13-405# 

13-526# 

13-601# 

13-681# 

13-794 

13-864# 

13-982# 

13-.-89# 

13-;70# 

13-<53# 

l3-=36# 

13->39# 

13-744# 

13-845# 

13-A35# 

13-841# 

13-C44# 

13-085# 

13-E88# 

16-380 

16-424 

28-162 

50-69 


13-88# 

13-164# 

13-241# 

13-328# 

13-414# 

13-528# 

13-612# 

13-690# 

13-794# 

13-884 

13-986# 

13-:93# 

13-.-72# 

13— <55# 

1 3-=38# 

1 3— >41# 

13-746# 

13-847# 

13-A42# 

13-B47# 

13-C48# 

13-092# 


13-99# 
13-176# 
13-254# 
13-330# 
13-420# 
13-530# 
13-618# 
13-694# 
13-806# 
13-884# 
13-997# 
13-.-95# 
13—; 74# 
13— <57# 
13-=61 
13->69 
13-766# 
13-849# 
13-A46# 
13-851# 
13-C61# 
13-098# 


13-105# 
13-185# 
13-262 
13-332# 
13-424# 
13-537# 
13-622# 
13-705# 
13-815# 
13-896# 
‘ :03# 
97# 
81# 


13- 

l3-<64# 
13— =61# 

-853# 
-A55# 
'-858# 
13-C74# 
13-E02# 


50-78 


13-109# 

13-189# 

13-262# 

13-347# 

13-431# 

13-543# 

13-624# 

13-711# 

13-819# 

13-905# 

13-.-12# 

-?! 
13-872# 
13-A71# 
13-865# 
13-087# 
13-E09# 



16-382* 16-383* 16-J84 16-386* 16-425 


28-197 

50-70 


28-200 

50-71 


32-145 

50-72 


32-146 

50-73 


S 


-185 

-74 


50-81 50-82 


13-111# 

13-201# 

13-274# 

13-355 

13-449# 

13-547# 

13-626# 

13-715# 

13-830# 

13-909# 

13— s 14# 

13-;09# 

13— ;91# 

13-<74# 

13-*79# 

13->89# 

13-786# 


13-113# 

13-207# 

11-ISiJ 

13-472# 

13-549# 

13-632# 

13-717# 

13-836# 

ll-?16# 

13-<76# 

ibs 

13-797# 

i|-a8# 

13-894 

13-012# 

13-E47# 


?2-188 

>0-75 


50-85 


13-120# 

13-211# 

13-287# 

13-367# 

13-480 

13-551# 

13-638# 

13-719# 

13-840# 

13-926# 

13-:36# 

13 -.- 15 # 

13— ;95# 

1 3— <78# 

13-*90# 

13->95# 

13-804# 

13-888# 

13-A93# 

13-894# 

13-040# 

13-E61 


50-58 

50-76 


13-126# 

13-213# 

13-29S# 

13-376# 

13-480# 

13-555# 

13-642# 

13-728# 

13-842# 

13-935# 

13-:44 

13-;17# 

13-;99# 

13-<82# 

1 3-=92# 

13->97l 

13-808# 

13-A04# 

13-804# 

13-C16# 

13-048 

1 3— €61 # 


50-59 

50-79 
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SEQ 0281 


13-75# 

13-111# 

13-132# 

13-189 

13-215# 

13-237# 

13-298 

13-318# 

13-355 

13-401# 

13-424# 

13-505 

13-530# 

13-551# 

13-612 

13-632# 

13-669 

13-715# 

13-738# 

13-819 

13-844# 

13-864# 

13-935 

13-982# 

13— : 16 

13-.-83 

13-.-03# 

13-.-45 

13—; 74# 

13-;99 

13— <55# 

13-<76# 

1 3— =34# 

1 3— =88# 

13— >37 

1 3— >89# 

13-738 

13-774# 

13-812# 

13-849 

13-All# 

13-A46# 

13-811# 

13-847 

13-894# 

13-C38 

13-C87# 

13-077 


13-84 

13-111# 

13-134 

13-189# 

13-215# 

13-241 

13-298# 

13-324 

13-355# 

13-401# 

13-431 

13-505# 

13-530# 

13-555 

13-612# 

13-638 

13-669# 

13-715# 

13-745 

13-819# 

13-844# 

13-884 

13-935# 

13-986 

13— : 16# 

13— r 83# 

13-;09 

13-;45# 

1 3—; 81 

13-;99# 

13— <55# 

13-<78 

13-=36 

1 3 — = 88 # 

13— >37# 

13->93 

13-738# 

13-736 

13-812# 

13-849# 

13-A15 

13-A46# 

13-815 

13-847# 

13-C16 

13-C38# 

13-C87# 

13-D77# 


13-84# 

13-113 

13-134# 

13-189# 

13-223 

13-241# 

13-304 

13-324# 

13-367 

13-403 

13-431# 

13-505# 

13-537 

13-555# 

13-618 

13-638# 

13-681 

13-717 

13-745# 

13-819# 

13-850 

13-884# 

13-935# 

13-986# 

13-s16# 

13-.-89 

13-;09# 

13— ;59 

1 3—; 81# 

1 3— <20 

13— <57 

13— <78# 

13-=36# 

13-=90 

l3->37# 

1 3— >93# 

13-742 

13-786# 

13-823 

13-849# 

13-A15# 

13-A55 

13-815# 

13-851 

13-C16# 

13-C44 

13-000 

13-081 


13-88 

13-113# 

13-134# 

13-201 

13-223# 

13-254 

13-304# 

13-328 

13-367# 

13-403# 

13-431# 

13-516 

13-537# 

13-568 

13-618# 

13-642 

13-681# 

13-717# 

13-745# 

13-830 

13-850# 

13-896 

13-937 

13-986# 

1 3— : 36 

13-:89# 

13— ; 13 

13-;59# 

13 -;£7 

13— <20# 

13-<57# 

13-<78# 

1 3— =36# 

13-=90# 

1 3— >39 

13->93# 

13-742# 

13-797 

13-823# 

13-853 

13-A15# 

13-A55# 

13-815# 

13-851# 

13-C23 

13-C44# 

13-000# 

13-081# 


13-88# 

13-113# 

13-138 

13-201# 

13-229 

13-254# 

13-308 

13-328# 

13-376 

13-403# 

13-449 

13-516# 

13-543 

13-568# 

13-622 

13-642# 

13-690 

13-717# 

13-761 

13-830# 

13-856 

13-896# 

13-937# 

13-997 

l3-:36# 

13-:93 

13—; 13# 

13-.-66 

13-.-87# 

1 3— <28 

1 3— <57# 

1 3— <82 

13-=38 

13-=90# 

13->39# 

1 3— >95 

13-742# 

13-797# 

13-835 

13-853# 

13-A24 

13-A55# 

13-817 

13-851# 

13-C23# 

13-C48 

13-000# 

13-081# 


13-88# 

13-120 

13-138# 

13-207 

13-229# 

13-262 

13-308# 

13-32S# 

13-376# 

13-405 

13-449# 

13-522 

13-543# 

13-576 

13-622# 

13-642# 

13-690# 

13-719 

13-761# 

13-836 

13-856# 

13-905 

13-937# 

13-997# 

1 3— :44 

13-:93# 

1 3 —; 1 3 # 

13-;66# 

1 3—; 91 

13— <28# 

13-<64 

13-<82# 

13 -= 38 # 

1 3-=92 

1 3->39# 

1 3->95# 

13-744 

13-804 

13-835# 

13-872 

13-A24# 

1 3-A71 

13 - 817 # 

13-858 

13-C27 

13-C48# 

13-012 

13-083 


13-99 

13-120# 

13-156 

13-207# 

13-233 

13-262# 

13-308# 

13-330 

13-380 

13-405# 

13-472 

13-522# 

13-547 

13-576# 

13-622# 

13-644 

13-694 

13-719# 

13-786 

13-836# 

13-860 

13-905# 

13-939 

1 3- : 03 

1 3— : 44# 

1 3- : 93# 

1 3—; 1 5 

1 3—; 70 

13-;91# 

1 3-<42 

13-<64# 

13-=05 

1 3-=38# 

1 3— =92# 

13- >41 

13->95# 

13-744# 

13-804# 

13-841 

13-872# 

13-A24# 

13-A71# 

13-817# 

13-858# 

13-C27# 

13-C48# 

13-012* 

13-083# 
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13-D83# 

13-D85 

13-D85* 

13-D85* 

13-D92 

13-D92* 

13-998 


13-E21 

1 3— £21* 

13-E21* 

13-E47 

13-E47* 

13-E61 

13-E61* 


13-E86* 

13-E86* 

13-E88 

13-E88* 

13-E88* 

13-568 

13-661 

BADSCT 

13-44 

13-156 

13-254 

13-347 

13-472 

13-686 

13-040 

13-E47 

16-33* 




BAD T NO 

10-3* 

10-25 






BA1 

4-749 * 

25-556 






B800 

4-678* 







BB01 

4-678 * 







6802 

4-678 * 







B803 

4-678* 







B804 

4-678* 







8805 

4-678* 







BB06 

4-678* 







8607 

4-678“ 







3B08 

4-67b» 







8809 

4-67®* 







BITO 

4-4 ;„* 

23-43 




4-588 

4-625 

81 TOO 

4-492 

42-1 

4-492* 

4-504 

4-551 

4-569 


4-642 

BIT01 

4-492 

4-492* 

4-503 

4-550 

4-587 

4-624 

81T02 

4-492 

4-492* 

4-502 

4-549 

4-586 

4-623 

4-641 

B1T03 

4-492 

4-492* 

4-501 

4-548 

4-585 

4-622 

4-640 

B1T04 

4-492 

4-492* 

4-500 

4-547 

4-584 

4-639 

4-678 

BIT05 

4-492 

4-492* 

4-499 

4-583 

4-621 

4-638 

4-678 

BIT06 

4-492 

4-492* 

4-568 

4-5e2 

4-604 

4-620 

4-637 

BIT07 

4-492 

4-492* 

4-567 

4-581 

4-603 

4-619 

4-636 

BIT08 

4-492 

4-492* 

4-544 

4-566 

4-580 

4-602 

4-618 

BIT09 

4-492 

4-492* 

4-543 

4-565 

4-579 

4-601 

4-617 

42-1 

42-1 






B1T1 

4-492* 

16-312 

17-26 

25-576 



4-633 

BIT10 

4-492* 

4-542 

4-564 

4-578 

4-600 

4-616 


BIT11 

4-492* 

41-1 

4-498 

4-541 

4-563 

4-577 

4-615 

4-632 

4-673 

BIT12 

4-492* 

4-562 

4-576 

4-614 

4-631 

4-657 

BIT13 

4-492* 

4 561 

4-575 

4-613 

4-630 

4-649 

4-672 

BIT14 

4-492# 

4-560 

4-574 

4-612 

4-629 

4-648 

4-671 

BIT15 

4-492# 

4-559 

4-573 

4-611 

4-628 

4-647 

4-670 

BIT2 

4-492# 

23-43 






BIT3 

4-492# 

15-198 

34-324 

34-411 




BIT4 

4-492# 

15-140 

34-430 





BIT5 

4-492# 







BIT6 

BIT? 

4-492# 

4-492# 

15-87 

10-71 

13-68 

13-A97 

13-834 

23-20 


BITS 

4-492# 







BIT9 

4-492# 







6LNKS1 

49-40* 







BLNKS2 

BLNKS3 

10-121 

49-38* 

11-34 

11-48 

49-39# 




BLNKS4 

10-82 

49-37# 






BOTADR 

43-73* 

43-91* 

43-94 

43-109 

43-153# 



bo as 

43-54* 

43-101* 

43-104 

43-107* 

43-154# 



BPTVEC 

4-492# 




25-427 



BSE 

4-682# 

13-C84 

13-C91 

16-224 



BUFFER 

16-48* 

16-292 

61-2# 

61-21 
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SEO 0282 


13-D98# 13-E02 13-E02# 13-E02# 13-E09 13-E09# 13-E09* 

13-E75 13-E75# 13-E78# 13-E80# 13-E82 13-E82# 13-E86 

13-786 1 3- : 36 13-;37 13-<20 13-766 13-B72 13-A71 


4-643 

4-678 

4-752 

4-770 

41-1 

41-1 

42-1 

4-678 

4-752 

4-769 





4-678 

4-752 

4-768 





4-678 

4-748 

4-690 

4-749 

4-767 




4-689 

4-747 






4-678 

4-733 

4-746 

4-766 




4-661 

4-678 

4-688 

4-732 

4-745 



4-635 

4-678 

4-731 

4-744 

41-1 



4-634 

4-660 

4-678 

4-730 

4-743 

41-1 

41-1 

4-659 

4-675 

4-687 

4-729 

4-742 

4-765 

15-165 

4-650 

4-658 

4-674 

4-686 

4-741 

4-764 

15-167 

4-685 

4-740 

4-763 

15-111 




4-684 

4-696 

4-728 

4-739 

4-762 

42-1 


4-683 

4-695 

4-727 

4-738 

4-761 

15-73 

41-1 

4-682 

4-694 

4-726 

4-737 

4-760 

18-33 

18-90 
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BUFONE 

13-41 

13-138 

13-153 

13-241 


13-;34 

1 3- ; 99 

13-<17 

1 3— <82 


13-C00* 

13-C02* 

13-037 

13-052 

BUFTWO 

13-118 

13-138 

13-221 

13-241 


1 3— <62 

1 3— <82 

13-=01 

13— =57 

CC 

4-674# 




CH 

4-675# 




CHGADR 

7-0# 

10-14* 

10-17* 

11-25 

CHRCNT 

43-55* 

43-78* 

43-84* 

43-85 

CKSWR 

41-1 

42-1 

42-1 

46-1# 

CLKADR 

7-0# 

13-68 

13-A97 

13-B34 

CLKVCT 

7-0# 

22-7* 

22-13* 


CLR 

4-747# 

10-84 

12-55 

29-16 

CLRSTS 

15-98 

30-22# 



CMNSTA 

10-130 

12-2# 



CMPBUF 

13-138 

13-241 

13-555 

13-.-99 

CMPERR 

26-21# 




CNSL01 

11-32 

49-15# 



CNSL02 

11-40 

49-16# 



CNSL03 

11-44 

49-17# 



CNSL04 

11-54 

49-18# 



CNSL07 

11-61 

49-19# 



CNSL08 

11-92 

49-21# 



CNSL09 

49-22# 




CNTCLR 

15-76 

29-12# 



COMMA 

11-86 

12-6 

12-14 

49-7# 

CONT 

4-637# 




CPSAVE 

41-1 

41-1 

41-1 

41-1* 

CR 

4-492# 

11-73 

11-84 

40-1 

CRLF 

4-492# 

10-6 

10-28 

10-28 


49-10 

49-11 

49-12 

49-13 


49-33 

58-7 

58-11 

58-12 


61-31 

61-32 

61-33 

61-34 


61-45 

61-46 

61-47 

61-48 


61-59 

61-60 

61-61 

61-62 


61-73 




CTLFG 

7-0# 

12-47* 

14-22 

44-3* 

CYLMSK 

4-665# 




DBCK 

4-611# 




OBEN 

4-612# 




OBL 

4-765# 




DCK 

4-573# 

4-590 

16-221 

18-23 

00 ISP 

4-492# 

6-0 

10-23 


OEBL 

4-613# 




OEVSEL 

15-62 

27-12# 



OISPLA 

6-0# 

10-23* 

10-23* 

41-1* 

OISPRE 

5-1# 

10-23 



DLT 

4-737# 

25-309 

34-496 

34-499 

OMD 

4-625# 

4-643# 

13-984 


OPE 

4-690# 

24-137 

25-251 

28-32 

f)P£HI 

4-761# 




DPELO 

4-762# 




OPR 

4-566# 

28-200 

30-125 

30-126 

DRIVES 

12-3 

49-33# 



DRQ 

4-65Q# 




DRVCLR 

4-512# 

16-86 

33-18 
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13-251 

1 3->C8 
13-054* 
13-409* 
13-928 

13-344 

13->64 

13-056* 

13-441 

13-953 

13-469 

13-713 

13-E44 

13-451 

13-A33 

13-555 

13-763 

13-E57* 

13-535 

13-B27 

13-565 

13-953 

61-3# 

13-555 

13-C36 

11-27* 

43-88* 

43-92 

43-97* 

43-108* 

43-155# 

22-6* 

22-8 

22-12* 

22-14 

23-20 

1 3-<82 

13-953 

18-17# 




41-1* 

42-1 

42-1 

42-1 

42-1 

40-1 

43-76 

57-79 




10-42 

10-53 

10-59 

12-30 

40' 

-1 

49-14 

49-15 

49-16 

49-18 

49 

-19 

58-15 

58-16 

58-18 

61-24 

61-25 

61-35 

61-36 

61-37 

61-38 

61- 

-39 

61-49 

61-50 

61-51 

61-52 

61- 

-53 

61-63 

61-64 

61-65 

61-66 

61- 

-67 


25-496 25-516 34-417 34-420 

42-1* 

32- 31 34-43 34-470 34-473 

33- 30 


SEQ 0283 


13-658 

13-783 

13-880 

13-957 

1 3- : 33 

1 3-958 

13-969 

13-A68 

13-B83 

13-698 

13-723* 

13-753 

13-763 

13-;79 

13-.-99 

13-090 

16-60 

16-445 

16-472 

61-4# 

23-39 






42-1 

42-1# 

42-1* 

42-1* 

43-172 

40-1 

49-3 

49-5 

49-8 

49-9 

49-20 

49-21 

49-22 

49-23 

49-25 

61-26 

61-27 

61-28 

61-29 

61-30 

61-40 

61-41 

61-42 

61-43 

61-44 

61-54 

61-55 

61-56 

61-57 

61-58 

61-68 

61-69 

61-70 

61-71 

61-72 
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S-10 


H 6 


SEQ 028c 


ORVSTS 

16-104 

33-9# 

DRY 

4-567# 

24-104 

9SUR 

4-492# 

6-0 

DTASTS 

13-111 

13-132 


13-842 

13-862 


13-744 

13-810 

DTE 

4-576# 

4-590 

DTO 

4-614# 


DULPRT 

4-653# 


OVA 

4-498# 

10-89 

OVC 

4-688# 

28-132 

EARLY 

52-107# 


EBL 

4-630# 


ECH 

4-582# 

4-590 

ECI 

4-658# 

18-21 

ECRC 

4-634# 


EDI 

55-1 

59-1# 

ED1 10 

55-4 

59-2# 

ED1 1 1 

55-5 

59-3# 

ED1 14 

55-7 

59-5# 

ED223 

55-8 

59-6# 

ED336 

55-10 

59-8# 

ED337 

55-11 

55-12 

ED353 

55-14 

59-11# 

EDT1 

8-3 

8-6 


8-48 

8-51 


8-90 

8-93 


8-133 

8-136 


8-178 

8-182 


8-236 

8-239 


8-278 

8-281 


8-320 

8-323 


8-366 

8-369 


8-411 

8-4«4 


8-504 

8-507 


EDT110 
EDT111 
EDT114 
EDT< 

eot; 

EOT’ 
EDT 
EDT^ 
EDT*53 
EECC 
EF110 
EF111 
EF114 

m 

EFT1 



25-34 

10-23 

13-213 

13-937 

13-847 

34-283 


20-43 

30-115 


16-221 

25-514 


59-10# 

8-9 

8-54 

8-96 

8-139 

8-185 

8-242 

8-284 

8-326 

8-372 

8-417 

8-510 

8-563 

8-612 

8-654 

8-711 

55-5# 

8-513 

55-8# 

8-687 



8-9 

8-54 


25-37 

25-38 

28-200 

30-125 

30-126 

33-30 






13-235 

13-310 

13-330 

13-403 

13-431 

13-528 

13-549 

13-624 

13-644 

13-717 

13-745 

1 3— : 1 4 

1 3—: 95 

13-.-15 

13-;72 

13-.-93 

1 3— <55 

1 3— <76 

1 3— =36 

13-=90 

1 3— >39 

1 3->95 

13-817 

13-858 

13-C29 

13-C61 

13-C74 

13-C87 

13-030 

13-083 

13-E09 

16-199 

34-17# 

34-301 

34-304 










21-37 

24-65 

24-68 

27-37 

30-31 

33-17 

33-18 





32-92 

32-130 

32-133 

32-266 

34-236 

34-240 

34-243 

34-288 

35-89 

35-94 

35-97 

18-25 

25-4^9 

25-494 

25-512 

25-518 

34-427 

50-77 

50-78 

50-85 

50-86 


34-424 











8-12 

8-15 

8-18 

8-24 

8-27 

8-30 

8-33 

8-36 

8-39 

8-42 

8-45 

8-57 

8-60 

8-63 

8-66 

8-69 

8-72 

8-75 

8-78 

8-81 

8-84 

8-87 

8-99 

8-102 

8-105 

8-108 

8-111 

8-114 

8-117 

8-120 

8-123 

8-126 

8-130 

8-142 

8-146 

8-150 

8-154 

8-157 

8-160 

8-163 

8-166 

8-169 

8-172 

8-175 

£-138 

8-191 

8-194 

8-197 

8-200 

8-203 

8-206 

8-209 

8-212 

8-215 

8-218 

8-245 

1-248 

8-251 

8-254 

8-257 

8-260 

8-263 

8-266 

8-269 

8-272 

8-275 

8-287 

8-290 

8-293 

8-296 

.8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-317 

8-329 

8-332 

8-335 

8-338 

8-341 

8-344 

8-347 

8-354 

8-357 

8-360 

8-363 

8-375 

8-378 

8-381 

8-384 

8-390 

8-393 

8-396 

8-399 

8-402 

8-405 

8-408 

8-420 

8-423 

8-432 

8-435 

8-438 

8-441 

8-444 

8-450 

8-453 

8-456 

8-459 

8-519 

8-522 

8-525 

8-531 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 

8-552 

8-566 

8-569 

8-573 

8-577 

8-581 

8-586 

8-590 

8-594 

8-597 

8-600 

8-603 

8-615 

8-618 

8-621 

8-624 

8-627 

8-630 

8-633 

8-636 

8-639 

8-642 

8-645 

8-657 

8-660 

8-663 

8-666 

8-669 

8-672 

8-675 

8-678 

8-693 

8-696 

8-702 

8-714 

8-723 

55-1# 








. ' 

8-516 

55-2# 










8-690 

55-10# 










60-3# 

60-4# 











fcB 

8-15 

8-60 

tt! 

8-24 

8-66 

8-27 

8-69 

S3 

in 


8-39 

8-81 

8-42 

8-84 

8-45 

8-87 


B 
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8-90 

8-93 

8-96 

8-99 

8-102 

8-105 

8-108 


8-133 

8-136 

8-139 

8-142 

8-146 

8-150 

8-154 


8-178 

8-182 

8-185 

8-188 

8-191 

8-194 

8-197 


8-236 

8-239 

8-242 

8-245 

8-248 

8-251 

8-254 


8-278 

8-281 

8-284 

8-287 

S-290 

8-293 

8-296 


8-320 

8-323 

8-326 

8-329 

8-332 

8-335 

8-338 


8-366 

8-369 

8-372 

8-375 

8-378 

8-381 

8-384 


8-411 

8-414 

8-417 

8-420 

8-423 

8-432 

8-435 


8-504 

8-507 

8-510 

8-519 

8-522 

8-525 

8-531 


8-556 

8-559 

8-563 

8-566 

8-569 

8-573 

8-577 


8-606 

8-609 

8-612 

8-615 

8-618 

8-621 

8-624 


8-648 

8-651 

8-654 

8-657 

8-660 

8-663 

8-666 


8-705 

8-708 

8-711 

8-714 

8-723 

56-1# 


EFT110 

8-221 

56-4# 






EFT111 

8-224 

8-227 

56-5# 





EFT114 

56-7# 







EFT2 

8-426 

8-429 

8-513 

8-516 

56-2# 



EFT223 

8-447 

8-528 

56-8# 





EFT336 

8-351 

8-681 

8-687 

8-690 

56-10# 



EFT337 

8-684 

56-11# 






EFT344 

8-699 

56-12# 






EFT353 

8-720 

56-14# 






EH1 

54-1 

58-1# 






EH110 

54-4 

58-2# 






EH111 

54-5 

58-3# 






EH114 

54-7 

58-5# 






EH223 

54-8 

58-6# 






EH256 

54-9 

58-7# 






EH336 

54-11 

58-10# 






EH337 

54-12 

58-11# 






EH344 

54-13 

58-15# 






EH353 

54-15 

58-18# 






EHT1 

8-3 

8-6 

8-9 

8-12 

8-15 

8-18 

8-24 


8-48 

8-51 

8-54 

8-57 

8-60 

8-63 

8-66 


8-90 

8-93 

8-96 

8-99 

8-102 

8-105 

8-108 


8-133 

8-136 

8-139 

8-142 

8-146 

8-150 

8-154 


8-178 

8-182 

8-185 

8-188 

8-191 

8-194 

8-197 


8-236 

8-239 

8-242 

1-245 

8-248 

8-251 

8-254 


8-278 

8-281 

8-284 

8-287 

8-290 

8-293 

8-296 


8-320 

8-323 

8-326 

8-329 

8-332 

8-335 

8-338 


8-366 

8-369 

8-372 

8-375 

8-378 

8-381 

8-384 


8-411 

8-414 

8-417 

8-420 

8-423 

8-432 

8-435 


8-504 

8-507 

8-510 

8-519 

8-522 

8-525 

8-531 


8-556 

8-559 

8-563 

8-566 

8-569 

8-573 

8-577 


8-606 

8-609 

8-612 

8-615 

8-618 

8-621 

8*624 


8-648 

9-651 

8-654 

8-657 

8-660 

8-663 

8-666 


8-705 

8-708 

8-711 

8-714 

8-723 

54-1# 


EHT110 

8-221 

54-4# 






EHT111 

8-224 

8-227 

54-5# 





EHT114 

54-7# 







EHT2 

8-426 

8-429 

8-513 

8-516 

54-2# 



EHT223 

8-447 

54-8# 






EHT256 

8-528 

54-9# 






EH T 336 

8-351 

8-681 

8-687 

8-690 

54-11# 



EHT337 

8-684 

54-12# 






EHT344 

8-699 

54-13# 







f 


8-111 

8-114 

8-117 

8-120 

8-123 

8-126 

8-130 

8-157 

8-160 

8-163 

8-166 

8-169 

8-172 

8-175 

8-200 

8-203 

8-206 

8-209 

8-212 

8-215 

8-218 

8-257 

8-260 

8-263 

8-266 

8-269 

8-272 

8-275 

8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-317 

8-341 

8-344 

8-347 

8-354 

8-357 

8-360 

8-363 

8-390 

8-393 

8-396 

8-399 

8-402 

8-405 

8-408 

8-438 

8-441 

8-444 

8-450 

8-453 

8-456 

8-459 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 

8-552 

8-581 

8-586 

8-590 

8-594 

8-597 

8-600 

8-603 

8-627 

8-630 

8-633 

8-636 

8-639 

8-642 

8-645 

8-669 

8-672 

8-675 

8-678 

8-693 

8-696 

8-702 


8-27 

8-30 

8-33 

8-36 

8-39 

8-42 

8-45 

8-69 

8-72 

8-75 

8-78 

8-81 

8-84 

8-87 

8-111 

8-114 

8-117 

8-120 

8-123 

8-126 

8-130 

8-157 

8-160 

8-163 

8-166 

8-169 

8-172 

8-175 

8-200 

8-203 

8-206 

8-209 

3-212 

8-215 

8-218 

8-257 

8-260 

8-263 

8-266 

8-269 

8-272 

8-275 

8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-317 

8-341 

8-344 

8-347 

8-354 

8-357 

8-360 

8-363 

8-390 

8-393 

8-396 

8-399 

8-402 

8-405 

8-408 

8-438 

8-441 

8-444 

8-450 

8-453 

8-456 

8-459 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 

8-552 

8-581 

8-586 

8-590 

8-594 

8-597 

8-600 

8-603 

8-627 

8-630 

8-633 

8-636 

8-639 

8-642 

8-645 

8-669 

8-672 

8-675 

8-678 

8-693 

8-696 

8- 7 02 
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EH’ i 

8-720 

54- * 













EMS1 

53-3 

57-3# 













EMS10 

53-7 

53-11 

57-10# 












EMS100 

53-39 

53-71 

53-176 

53-196 

57-66# 










EMS101 

53-40 

53-59 

53-174 

53-197 

57-67# 










EHS102 

53-177 

53-178 

53-181 

53-182 

53-133 

53-184 

53-186 

53-187 

53-188 

53-189 

53-234 

53-235 

57-68# 


ENS103 

53-56 

53-57 

53-135 

53-141 

53-196 

53-197 

53-191 

53-203 

53-204 

53-205 

53-206 

53-207 

53-208 

53-209 


53-210 

53-211 

53-213 

53-214 

53-215 

53-219 

53-220 

57-69# 







EMS104 

53-136 

53-180 

53-203 

57-70# 











EMS105 

53-204 

57-71# 













EMS106 

53-212 

53-232 

57 ??# 












EMS11 

53-12 

53-15 

53-16 

53-17 

53-18 

53-19 

53-20 

53-21 

53-22 

53-23 

53-24 

53-25 

53-26 

53-27 


53-28 

53-29 

53-30 

53-31 

53-32 

53-33 

53-43 

53-152 

53-177 

57-11# 





EMS110 

53-9 

53-74 

53-77 

57-73# 











EMS111 

53-74 

53-226 

57-74# 












EMS112 

53-74 

57-75# 













EMS113 

53-75 

53-76 

53-127 

57-77# 











ENS1H 

53-77 

57-78# 













EMS115 

53-44 

53-45 

53-<*.» 

53-50 

53-51 

53-52 

53-54 

53-55 

53-60 

53-61 

53-63 

53-66 

53-67 

53-70 


53-73 

53-77 

53-107 

53-108 

53-109 

53-110 

53-134 

53-137 

53-139 

53-140 

53-142 

53-150 

53-151 

53-153 


53-179 

53-182 

53-183 

53-185 

53-186 

53-187 

53-188 

53-189 

53-190 

53-192 

53-193 

53-194 

53-195 

53-201 


53-205 

53-221 

53-222 

53-223 

53-232 

53-234 

57-79# 








EMS116 

53-74 

53-77 

53-191 

53-225 

57-80# 










EMS117 

53-77 

53-143 

53-148 

53-149 

53-150 

53-178 

53-185 

53-201 

53-225 

53-228 

53-229 

53-230 

53-231 

57-81# 

EMS12 

53-12 

57-12# 













EMS120 

57-82# 














EMS121 

53-79 

53-88 

53-97 

53-99 

57-83# 










EMS122 

53-80 

53-89 

57-84# 







* 





EMS123 

53-81 

53-88 

53-89 

53-90 

53-90 

53-91 

53-92 

53-93 

53-94 

53-95 

53-96 

53-98 

53-126 

57-85# 

EMS124 

53-56 

53-82 

53-91 

53-101 

57-86# 










EMS125 

53-83 

53-92 

53-102 

53-169 

57-87# 










EMS126 

53-84 

53-93 

53-103 

57-88# 











EMS127 

57-89# 














EMS13 

53-13 

53-42 

53-216 

57-13# 











EMS130 

53-86 

53-95 

53-106 

57-90# 











EMS131 

53-87 

53-96 

53-104 

57-91# 











EMS132 

53-79 

53-80 

53-81 

53-82 

53-83 

53-84 

53-85 

53-86 

53-87 

53-88 

53-89 

53-90 

53-91 

53-92 


53-93 

53-94 

53-95 

53-96 

53-97 

53-98 

53-99 

53-100 

53-101 

53-102 

53-103 

53-104 

53-105 

53-106 


53-125 

53-126 

53-168 

53-169 

57-92# 










EMS133 

53-79 

53-80 

53-81 

53-82 

53-83 

53-84 

53-85 

53-86 

53-87 

53-125 

57-93# 




EMS134 

53-88 

53-89 

53-90 

53-91 

53-92 

53-93 

53-94 

53-95 

53-96 

53-126 

57-94# 




EMS135 

53-97 

53-98 

57-95# 












EMS136 

53-99 

53-100 

53-101 

53-102 

53-103 

53-104 

53-105 

53-106 

57-96# 






EMS137 

53-85 

53-94 

53-100 

57-97# 











EMSU 

53-13 

57-14# 













EMSHO 

53-44 

53-52 

53-60 

53-107 

53-117 

53-137 

53-186 

53-192 

57-98# 






EHS141 

53-35 

53-44 

53-45 

53-60 

53-61 

53-66 

53-107 

53-122 

53-137 

53-187 

53-188 

53-193 

53-222 

57-99# 

EMS142 

53-47 

53-65 

53-108 

53-140 

53-184 

53-202 

57-100# 








EMS143 

53-47 

53-65 

53-73 

53-108 

53-109 

53-110 

53-133 

53-140 

53-184 

53-202 

53-205 

57-101# 



ENS144 

53-36 

53-73 

53-109 

53-110 

53-205 

57-102# 









EHS145 

53-36 

53-73 

53-109 

53-110 

53-205 

57-103# 









EMS146 

53-109 

53-185 

53-190 

53-201 

57-104# 










EMS147 

53-69 

53-112 

53-113 

53-173 

53-217 

57-105# 









EMS15 

53-13 

53-42 

53-216 

57-15# 











EHS150 

53-50 

53-51 

53-54 

53-63 

53-67 

53-111 

53-134 

53-138 

53-182 

53-183 

53-194 

53-195 

53-223 

53-234 


57-106# 


SEQ 0287 
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EMS151 

53-69 

53-112 

53-113 

53-173 

53-217 

57-107# 

EMS152 

EMS153 

53-50 

53-111 

53-51 

57-109# 

53-54 

53-63 

53-111 

53-134 

EMS154 

53-111 

53-112 

53-123 

53-124 

57-110# 


EMS155 

53-112 

53-124 

57-111# 



53-173 

EMS156 

53-113 

53-114 

53-115 

53-116 

53-151 

EMS157 

53-113 

53-123 

57-113# 




EMS16 

53-13 

57-16# 


57-114# 



EMS160 

53-114 

53-115 

53-116 



EMS161 

53-114 

57-115# 





EMS162 

EMS163 

57-116# 

53-58 

53-59 

53-60 

53-61 

53-62 

53-63 

53-72 

53-73 

53-117 

53-143 

57-117# 


EMS164 

53-45 

57-118# 



53-172 

53-196 

EMS165 

53-56 

53-57 

53-71 

53-72 

EMS166 

53-142 

57-121# 


53-123 

53-124 

53-168 

EMS167 

53-8 

53-49 

53-68 

EMS17 

53-14 

57-17# 





EMS170 

53-9 

57-123# 





E MSI 71 

53-57 

53-105 

53-125 

53-126 

57-124# 


EMS1 72 

53-215 

57-125# 





EMS173 

53-214 

57-126# 





EMS174 

53-216 

57-127# 



57-128# 


EMS175 

53-216 

53-217 

53-218 

53-219 


EMS176 

57-129# 






EMS177 

53-127 

57-130# 





EMS2 

53-4 

53-5 

57-4# 




EMS20 

53-34 

53-53 

53-58 

53-110 

53-118 

53-119 

EMS200 

53-128 

57-131# 





EMS201 

53-128 

57-132# 





EMS202 

53-122 

53-130 

53-131 

53-132 

53-133 

53-134 

EMS203 

53-122 

53-130 

53-131 

53-132 

53-133 

53-174 

EMS204 

53-131 

57-135# 





EMS205 

53-55 

53-142 

53-179 

53-233 

57-136# 


EMS206 

53-55 

53-142 

53-170 

53-179 

53-233 

57-137# 

EMS207 

53-168 

53-170 

57-138# 



EMS21 

53-15 

57-19# 





EMS210 

53-169 

53-170 

53-173 

57-139# 



EMS211 

53-170 

57-140# 





EMS212 

53-171 

53-172 

57-141# 




EMS213 

53-171 

57-142# 





EMS214 

53-55 

57-143# 





EMS215 

53-236 

57-144# 





EMS216 

53-237 

57-145# 





EMS217 

53-237 

57-146# 





EMS22 

53-16 

57-20# 





EMS220 

53-179 

57-147# 





EMS221 

53-231 

53-238 

57-148# 




EMS222 

53-233 

57-149# 





EMS223 

53-232 

57-150# 





EMS224 

53-121 

57-151# 





EMS225 

53-53 

53-150 

53-151 

53-153 

57-152# 


EMS226 

53-53 

53-150 

53-153 

57-153# 



EMS227 

53-151 

57-154# 





EMS23 

53-17 

57-21# 





EMS230 

53-151 

53-152 

53-153 

57-155# 




53-182 

53-183 

53-194 

53-195 

53-223 

57-108# 

57-112# 

53-64 

53-65 

53-66 

53-67 

53-68 

53-69 53-70 

53-197 

53-169 

53-198 

53-170 

57-120# 

53-175 

53-235 

57-122# 



53-120 

53-121 

53-212 

53-232 53-238 57-18# 

53-136 

53-175 

53-180 

53-176 

57-133# 

53-237 

57-134# 


53-71 


j 


7 


E 
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EMS231 

53*151 

57-156# 













EMS232 

57-157# 














EMS24 

53-18 

57-22# 













EMS25 

53-19 

53-115 

57-23# 












EMS26 

53-20 

53-116 

53-173 

57-24# 











EMS27 

53-16 

53-19 

53-20 

53-115 

53-116 

53-173 

57-25# 








EMS3 

53-4 

53-76 

57-5# 












EMS30 

53-17 

53-18 

53-21 

53-22 

53-23 

53-24 

53-25 

53-26 

53-27 

53-28 

53-29 

53-30 

53-31 

53-32 


53-33 

53-43 

53-122 

53-130 

53-131 

53-132 

53-133 

53-144 

53-145 

53-146 

53-147 

53-152 

53-174 

53-175 


53-176 

53-177 

53-199 

57-26# 











EMS31 

53-21 

53-146 

53-207 

53-208 

57-27# 










EMS32 

53-22 

57-28# 













EMS33 

53-23 

53-219 

57-29# 












EMS34 

53-24 

53-225 

53-226 

53-227 

57-30# 










EMS55 

53-25 

53-216 

57-31# 












EMS36 

53-26 

53-213 

53-214 

53-215 

57-32# 










EMS37 

53-27 

57-33# 













EMS4 

53-5 

53-75 

57-6# 












EKS40 

53-28 

53-220 

57-34# 












EHS41 

53-29 

53-190 

53-191 

57-35# 











EMS42 

53-30 

53-206 

57-36# 












EHS43 

53-31 

53-209 

57-37# 












EMS44 

53-32 

53-211 

53-230 

57-38# 











EMS45 

53-33 

53-210 

53-229 

57-39# 











EHS46 

53-43 

53-58 

53-120 

53-145 

53-177 

53-185 

53-199 

53-201 

57-40# 






EMS47 

53-37 

53-44 

53-45 

53-52 

53-60 

53-61 

53-66 

53-117 

53-118 

53-147 

53-186 

53-187 

53-188 

53-192 


53-193 

53-222 

57-41# 












EMS5 

53-6 

53-7 

57-7# 












EMS50 

53-46 

53-48 

53-64 

53-70 

53-132 

53-135 

53-139 

53-141 

53-181 

53-185 

53-189 

53-200 

53-201 

53-221 


57-42# 








{ 






EHS51 

53-48 

53-55 

53-70 

53-130 

53-139 

53-142 

53-179 

53-189 

53-221 

57-43# 





EMS52 

53-55 

53-142 

53-143 

53-148 

53-149 

53-150 

53-178 

53-179 

53-185 

53-201 

53-228 

53-229 

53-230 

53-231 


53-233 

57-44# 













EMS53 

53-37 

53-38 

53-39 

53-40 

53-44 

53-45 

53-46 

53-47 

53-62 

53-64 

53-65 

53-73 

53-140 

53-141 


53-181 

53-182 

53-184 

53-186 

53-187 

53-190 

53-191 

53-192 

53-193 

53-194 

53-195 

53-200 

53-202 

53-203 


53-204 

53-206 

53-207 

53-216 

53-218 

53-219 

53-220 

53-226 

57-45# 






EMS54 

53-226 

57-46# 













EHS55 

53-227 

57-47# 













EHS56 

53-50 

53-51 

53-54 

53-62 

53-63 

53-67 

53-119 

53-143 

53-144 

53-178 

53-182 

53-183 

53-194 

53-195 


53-223 

53-228 

53-234 

57-48# 











EWS57 

53-151 

53-190 

53-191 

53-192 

53-193 

53-194 

53-195 

53-196 

53-197 

53-198 

53-199 

53-200 

53-201 

53-202 


53-203 

53-204 

53-205 

53-206 

53-207 

53-208 

53-209 

53-210 

53-211 

53-213 

53-214 

53-215 

53-220 

53-221 


53-222 

53-223 

53-228 

53-229 

53-230 

57-49# 









EHS6 

S3-6 

57-8# 













EMS60 

53-224 

57-50# 













EMS61 

53-224 

57-51# 













EHS62 

53-224 

57-52# 













EMS63 

53-42 

53-149 

53-190 

57-53# 











EMS64 

53-8 

53-14 

53-41 

53-144 

53-145 

53-146 

53-147 

53-199 

57-54# 






EMS65 

53-41 

57-55# 













EMS66 

53-34 

53-218 

57-56# 












EHS67 

53-43 

53-44 

53-45 

53-46 

53-47 

53-48 

53-49 

53-50 

53-51 

53-52 

53-54 

57-57# 



EHS7 

53-10 

57-9# 













EMS70 

53-48 

53-50 

53-52 

53-54 

53-66 

53-70 

53-73 

53-107 

53-110 

53-139 

53-182 

53-189 

53-194 

53-205 


53-221 

57-58# 













EMS71 

53-51 

53-59 

53-63 

53-183 

53-195 

53-208 

57-59# 
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F 7 


EMS72 

EMS73 

ENS74 

EMS75 

EMS76 

EHS77 

EMT1 

EMTIO 

EMTIOO 

EMT101 

EMT102 

EMT103 

EMT104 

EMT105 

EAT106 

EMT107 

EWT11 

EWT110 

EMT 111 

ENT112 

EAT113 

ENT114 

EWT115 

EWT116 

ENT117 

EMT12 

ENT 120 

EMTT21 

EMT122 

ENM23 

EHT124 

EHT125 

EMU 26 

EMT1 27 

EMT13 

EWT130 

EMT131 

EMT132 

EHT133 

EMT134 

EMT135 

EHT136 

EMT137 

EHT14 

ENT140 

ENT141 

EMT142 

EMT143 

EMT144 

EHT145 

EMT146 

CMT147 

EHT15 

EHT150 

EHT151 


53-36 

53-139 

53-49 

53-69 

53-35 

53-35 

53-38 

8-3 

8-24 

8-197 

8-200 

8-203 

8-206 

8-209 

8-212 

8-215 

8-218 

8-27 

8-221 

8-224 

8-227 

8-230 

53-78# 

8-236 

8-239 

8-242 

8-30 

8-245 

8-248 

8-251 

8-254 

8-257 

8-260 

8-263 

8-266 

8-33 

8-269 

8-272 

8-275 

8-278 

8-281 

8-234 

8-287 

8-290 

8-36 

8-293 

8-296 

8-299 

8-3C2 

8-305 

8-308 

8-311 

8-314 

8-39 

8-317 

8-320 


53-48 

53-140 

53-54 

53-70 

53-66 

53-36 

53-72 

53-3# 

53-10# 

53-66# 

53-67# 

53-68# 

53-69# 

53-70# 

53-71# 

53-72# 

53-73# 

53-11# 

53-74# 

53-75# 

53-76# 

53-77# 

53-79# 

53-80# 

53-81# 

53-12# 

53-82# 

53-83# 

53-84# 

53-85# 

53-86# 

53-87# 

53-88# 

53-89# 

53-13# 

53-90# 

53-91# 

53-92# 

53-93# 

53-94# 

53-95# 

53-96# 

53-97# 

53-14# 

53-98# 

53-99# 

53-100# 

53-101# 

53-102# 

53-103# 

53-104# 

53-105# 

53-15# 

53-106# 

53-107# 


53-51 

53-55 

53-56 

53-57 

53-60 

53-61 

53-61 

53-63 

53-108 

53-109 

53-142 

53-153 

53-179 

53-183 

53-187. 

53-193 

53-195 

53-232 

57-60# 

53-67 

53-68 

53-136 

53-180 

53-188 

53-222 

53-223 

53-234 

53-235 

57-61# 

53-134 

53-189 

53-217 

53-221 

57-62# 





53-67 

53-137 

53-138 

53-188 

53-222 

53-223 

53-234 

57-63# 



53-37 

53-38 

53-39 

53-40 

57-64# 






53-148 

53-198 

57-65# 









SEQ 0289 


53-134 53-135 



G 


SEQ 0290 


i 
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ENT233 

ENT234 

ENT235 

ENT236 

ENT237 

ENT24 

ENT240 

ENT241 

ENT242 

ENT243 

ENT244 

ENT245 

ENT246 

ENT247 

ENT25 

ENT250 

ENT251 

ENT252 

ENT253 

ENT254 

ENT255 

ENT256 

ENT257 

ENT26 

ENT260 

ENT261 

ENT262 

ENT263 

ENT264 

ENT265 

ENT 266 

ENT267 

ENT27 

ENT 2 70 

ENT271 

ENT272 

ENT273 

ENT274 

ENT275 

ENT276 

ENT277 

ENT3 

ENT30 

ENT300 

ENT301 

ENT302 

ENT303 

ENT 304 

ENT305 

ENT306 

ENT307 

ENT31 

ENT310 

ENT311 

ENT312 

ENT313 


8-471 
53-158# 
53-159# 
53-160# 
53 161# 
8-60 
53-162# 
53-163# 
53-164# 
53-165# 
53-166# 
53-167# 
8-504 
8-507 
8-63 
8-510 
8-513 
8-516 
8-519 
8-522 
8-525 
8-528 
8-531 
8-66 
8-534 
8-537 
8-540 
8-543 
8-546 
8-549 
8-552 
8-556 
8-69 
8-559 
8-563 
8-566 
8-569 
8-573 
8-577 
8-581 
8-586 
8-9 
8-72 
8-590 
8-594 
8-597 
8-600 
8-603 
8-606 
8-609 
8-612 
8' 75 
8-615 
8-618 
8-621 
8-624 


53-157# 


53-22# 


53-168# 

53-169# 

53-23# 

53-170# 

53-171# 

53-172# 

53-173# 

53-174# 

53-175# 

53-176# 

53-177# 

53-24# 

53-178# 

53-1 79# 

53-180# 

53-181# 

53-182# 

53-183# 

53-184# 

53-185# 

53-25# 

53-186# 

53-187# 

53-188# 

53-189# 

53-190# 

53-191# 

53-192# 

53-193# 

53-5# 

53-26# 

53-194# 

53-195# 

53-196# 

53-197# 

53-198# 

53-199# 

53-200# 

53-201# 

53-27# 

53-202# 

53-203# 

53-204# 

53-205# 


i 

i_ 


H 


SEQ 0291 




SEQ w ' 


I 7 


I 



J 7 
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ENT57 

ENT6 

ENT60 

ENT61 

ENT62 

ENT63 

ENT64 

ENT65 

ENT 66 

ENT67 

ENT7 

ENT 70 

ENT 71 

ENT72 

ENT 73 

ENT 74 

ENT75 

ENT 76 

ENT77 

ENTVEC 

ENRGOT 

EQUALS 

ERR 

ERRNNB 

ERROR 

ERRTYP 

ERRVEC 


ERTYOO 

ERTY01 

ERTY02 

ERTY03 

ERTY04 

ERTY05 

ESRC 

FO 

FI 


F4 

FER 

FIND 


8-142 

8-18 

8-146 

8-150 

8-154 

8-157 

8-160 

8-163 

8-166 

8-169 

8-21 

8-172 

8-175 

8-178 

8-182 

8-185 

8-188 

8-191 

8-194 

4-492# 

52-144# 


53-49# 

53-8# 

53-50# 

53-51# 

53-52# 

53-53# 

53-54# 

53-55# 

53-56# 

53-57# 

53-9# 

53-58# 

53-59# 

53-60# 

53-61# 

53-62# 

53-63# 

53-64# 

53-65# 

10-23* 


10-23* 


49-4# 

4-560# 

25-80 

25-82 

25-98 

25-132 

43-152# 

43-40* 

43-41* 

43-44 

43-49 

43-56 

4-492# 

42-1 

4-492# 

43-13# 

10-23 

10-23* 

10-23* 

10-25* 

10-26* 

20-35 

20-35 

20-39* 

20-40* 

20-70* 

20-70* 

22-4* 

22-5* 

22-11* 

22-18* 

22-18* 

23-9 

27-22* 

27-51* 

27-51* 

29-12 

29-12 

29-13* 

41-1* 

41-1* 

42-1 

42-1* 

42-1* 



43-21 

43-38 

43-43 

43-45 

43-144 

43-31 

4-632# 

4-503# 

4-502# 

4-501# 

4-500# 

4-499# 

4-584# 

13-44 

13-84# 

13-111# 

13-132 

13-164# 

13-207# 

13-229 

13-241# 

13-287# 

13-312 

13-330# 

13-376# 


43-157# 

43-158# 

43-159# 

43-160# 

43-161# 

43-162# 

25-28 

25-28 

25-28 

25-28 

25-28 

4-590 

13-44# 

13-88 

13-111# 

13-132# 

13-176 

13-207# 

13-229# 

13-254 

13-287# 

13-312# 

13-332 

13-376# 


25-675 


13-655 

13-44# 

13-88# 

13-113 

13-132# 

13-176# 

13-211 

13-229# 

13-254# 

13-298 

13-312# 

13-332# 

13-380 


13-662 

13-52 

13-88# 

13-113# 

13-134 

13-176# 

13-211# 

13-233 

13-254# 

13-298# 

13-318 

13-332# 

13-380# 


13-C58 

13-52# 

13-99 

13-113# 

13-134# 

13-185 

13-211# 

13-233# 

13-262 

13-298# 

13-318# 

13-347 

13-380# 


13-5 

21-29 

23-9 

29-14* 


1HS 

13-99# 

13-120 

13-134# 

13-185# 

m 

13-262# 

13-304 

13-318# 

13-347# 

13-391 


16-221 

ipl 

fox 

13-185# 

mi? 

13-262# 

!l:k 


SE3 0293 
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FNT16 


FNCDTB 

FNCFfSK 

GENBUF 


13-403 
13-424# 
13-492# 
13-526 
13-543# 
13-568# 
13-612 
13-626# 
13-646# 
13-694 
13-717# 
13-745# 
13-815 
13-840# 
13-860# 
13-905 
13-935# 
13-982# 
1 3 — : 1 4 
13-:58# 
1 3— :93# 
1 3 —; 1 3 
13-;45# 
13-;74# 
13-;95 
1 3 -< 42 # 
13-<64# 
1 3— <82 
13-=34# 
13-=79# 
13->26 
1 3— >41 # 
1 3— >95# 
13-742 
13-774# 
13-810# 
13-845 
13-872# 
13-A15# 
13-A46 
13-A93# 
13-619# 
13-658 
13-C16# 
13-C38# 
13-C87 
13-048# 
13-085# 
13-E21 
13-ESQ 
4-657# 
13— <14 
13-035 
25-126 
4-505# 
13-48 


13-403# 

13-431 

13-492# 

13-526# 

13-547 

13-568# 

13-612# 

13-632 

13-646# 

13-694# 

13-719 

13-745# 

13-815# 

13-842 

13-860# 

13-905# 

13-937 

13-982# 

1 3- : 1 4# 

13-:67 

13-.-93# 

13—; 1 3# 

13-;59 

13-;74# 

13-;95# 

13-<49 

13-<64# 

1 3-<82# 

1 3— =36 

13-=79# 

1 3->26? 

13->69 

13->95# 

13-742# 

13-786 

13-810# 

13-845# 

13-880 

13-A15# 

13-A46# 

13-604 

13-619# 

13-658# 

1 £ 3 » 

13-C87# 

13-070 

13-085# 

13-E21# 

13-E80# 

13-140 

13-<97 

13-E42 

25-442 

33-17 

13-160 


13-403# 

13-431# 

13-501 

13-526# 

13-547# 

13-576 

13-612# 

13-632# 

13-661 

13-694# 

13-719# 

13-761 

13-815# 

13-842# 

13-862 

13-905# 

13-937# 

13-986 

1 3- : 1 4# 

13-.-67# 

13-:95 

13-;13# 

13-;59# 

13-.-81 

13-;95# 

1 3-<49# 

13— <70 

13— <82# 

13-=36# 

13 -=88 

1 3— >26# 

13->69# 

13— >97 

13-742# 

13-786# 

13-812 

13-845# 

13-880# 

13-A24 

13-A46# 

13*804# 

13-630 

13-658# 

13-C23# 

13-C44 

13-C87# 

13-070# 

13-092 

13-E21# 

13-E82 

13-142 

13— =53 

16-59 

50-55# 

34-345 

13-258 


13-405 

13-431# 

13-501# 

13-528 

13-547# 

13-576# 

13-618 

13-632# 

13-661# 

13-705 

13-719# 

13-761# 

13-819 

13-142# 

13-862# 

13-909 

13-937# 

13-986# 

13— : 16 

13-:67# 

13-:95# 

13—; 1 5 

13-;59# 

13— ;81# 

13-;99 

13-<49# 

13-<70# 

13-=05 

13-=36# 

13-=88# 

13->33 

13->69# 

13->97# 

13-744 

13-786# 

13-812# 

13-847 

13-880# 

13-A24# 

13-A55 

13-604# 

13-630# 

13 865 

13-C23# 

13-C44# 

13-000 

13-070# 

13-092# 

13-E47 

13->49 

16-274 


13-405# 

13-449 

13-501# 

13-528# 

13-549 

13-576# 

13-618# 

13-638 

13-661# 

13-705# 

13-728 

13-761# 

13-819# 

13-844 

13-862# 

13-909# 

13-939 

13-986# 

13—: 16# 

13-.-71 

13— : 95# 

13—; 1 5# 

13-;66 

1 3— ;81# 

13-;99# 

1 3— <53 

13-<70# 

13-=05# 

1 3— =38 

13— =88# 

13->33# 

13->82 

13->97# 

13-744# 

13-797 

13-812# 

13-847# 

13-888 

13-A24# 

13-A55# 

13-611 

13-630# 

13-665# 

13-C27 

13-C44# 

13-000# 

13-077 

13-092# 

13-E47# 

13-E82# 

13-249 

13->52 

16-283 


3-405# 

3-449# 

3-505 

13-528# 

13-549# 

3-588 

3-618# 

13-638# 

3-669 

13-705# 

3-728# 

13-786 

13-819# 

13-844# 

13-864 

13-909# 

13-939# 

13-997 

13— : 16# 

13— : 71# 

1 3-: 97 
1 3-; 15# 
1 3-; 66# 
13— ;87 
I3-.-99# 
l3-<53# 
13— <74 
13— =05# 
13— =38# 
13— =90 
13— >33# 
13— >82# 
13-718 
13-744# 
13-797# 
13-823 
13-847# 
13-888# 

! 3-aH# 

13-611# 

13-641 

13-665# 

I3-C27# 

I3-C48 

13-000# 

13-077# 

13-098 

I3-E47# 


3-414 

3-449# 

3-505# 

3-530 

3-549# 

3-588# 

3-622 

3-631# 

3-669# 

3-711 

3-728# 

3-786# 

3-830 

3-844# 

3-864# 

3-920 

3-939# 

3-997# 

3-: 36 

3-: 71# 

3-: 97# 

3-; 17 

3-; 66# 

3-; 87# 

3-<20 

3-<53# 

3-<74# 

3— =18 

3-=38# 

3-=90# 

3->37 

3->82# 

3-718# 

3-746 

3-797# 

3-823# 

3-849 

f- 1 ?B 

3-A71 

3-611# 

3-641# 

m, 

3-C48# 

3-012 

3-077# 

3-098# 


3-711 

7-34 


13-351 13-476 13-572 13-665 


SEQ 0294 


3-414# 

3-472 

3-505# 

3-530# 

3-551 

3-588# 

3-622# 

3-642 

3-669# 

3-711# 

3-734 

13-786# 

3-830# 

3-850 

3-864# 

13-920# 

13-961 

13-997# 

l3-:36# 

1 3-: 83 
1 3-: 97# 
1 3 — ; 1 7 # 

1 3-; 70 

I3-.-87# 

13— <20# 

13— <55 

13— <74# 

13— =1 8# 

13— =61 

1 3-=90# 

13— >37# 

13— >89 

13-718# 

13-746# 

13-804 

13-823# 

13-849# 

I3-A04 

I3-A28# 

I3-A71# 

13-615 

13-641# 

13-686# 

I3-C29 

I3-C48# 

13-012# 

! 3-081 

13-098# 

I3-E61# 


3-563 

3-761 

8-27 


13-414# 

13-472# 

13-516 

13-530# 

13-551# 

13-597 

13-622# 

13-642# 

13-681 

13-711# 

13-734# 

13-794 

13-830# 

13-850# 

13-884 

13-920# 

13-961# 

13-:03 

13-:36# 

13-:83# 

13-;03 

13—; 1 7# 

13-;70# 

13— ;91 

13-<20# 

13— <55# 

13-<76 

13— =18# 

13— =61# 

13--92 

13->37# 

13->89# 

13-731 

13-746# 

13-804# 

13-835 

13-849# 

13-A04# 

13-A35 

13-A71# 

13-615# 

13-647 

13-686# 

13-C29# 

13-C61 

13-012# 

13-081# 

13-E02 

13-E61# 

13-EI8 

13-656 

13-867 

25-447 


13-420 

13-472# 

13-516# 

13-537 

13-551# 

13-59 7# 

13-624 

13-642# 

13-681# 

13-715 

13-734# 

13-794# 

13-836 

13-850# 

13-884# 

13-926 

13-961# 

13-:03# 

13-.-44 

13-:83# 

13-;03# 

13— ;37 

13-;70# 

13— ;91# 

1 3— <28 

13— <55# 

13-<76# 

13— =25 

13— =61# 

1 3— =92# 

1 3->39 

13->89# 

13-731# 

13-766 

13-804# 

13-835# 

13-853 

13-A04# 

13-A35# 

13-A79 

13-615# 

13-647# 

13-B94 

13-C29# 

13-C61# 

13-040 

13-081# 

IfWP 

13-A65 

28-59 


13-420# 

13-480 

13-516# 

13-537# 

13-555 

13-597# 

13-624# 

13-644 

13-681# 

13-715# 

13-738 

13-794# 

13-836# 

13-856 

13-884# 

im 

13-:03# 

1 3— : 44# 

13-:89 

13— ;03# 

1 3— ;37# 

13-;72 

13— ;91# 

13-<28# 

13-<57 

13— <76# 

1 3— =25# 

13— =72 

13-=92# 

1 3->39# 

13->93 

13-731# 

13-766# 

13-808 

13-835# 

13-853# 

13-A11 

13-A35# 

13-A79# 

13-617 

13-647# 

13-694# 

13-C31 

13-C61# 

13-040# 

13-083 

ihr 


13-420# 

13-480# 

m 

13-555# 

13-601 

13-624# 

13-644# 

13-690 

13-715# 

13-738# 

13-806 

13-836# 

13-856# 

13-896 

13-926# 

13-973# 

13—: 12 

13-:44# 

1 3- : 89# 

13-;09 

13-.-37# 

1 3-; 72# 

13-;93 

1 3-<28# 

13-<57# 

1 3— <78 

1 3— =25# 

13-=72# 

1 3— >13 

13->39# 

1 3->93# 

13-738 

13-766# 

13-808# 

13-841 

13-853# 

13-All# 

13-A42 

13-A79# 

13-617# 

13-651 

13-694# 

13-C31# 

13-C74 

13-040# 

13-083# 

13-EO 9 

13-E75# 

13-953 

13-667 


522# 13-522# 
543 13-543# 


13-424 

13-480# 

13-522# 

13-543 

13-555# 

15-601# 

13-626 

13-644# 

13-690# 

13-717 

13-738# 

w 

13-856# 

13-896# 

13-935 

13-973# 

1 3- : 1 2# 

13-:58 

1 3- : 89# 

13-;09# 

13-.-45 

13-.-72# 

13-;93# 

1 3-<42 

1 3— <57# 

1 3— <78# 

13-=34 

1 3-=72# 

13->13# 

13— >41 

1 3->93# 

13-738# 

13-774 

13-808# 

13-841# 

13-872 

13-A11# 

13-A42# 

13-A93 

13-617# 

13-651# 

13-C16 

13-C31# 

13-C74# 

13-048 

13-083# 

13-E09# 

13-E78 


13-424# 

13-492 


13-568 

13-601# 

13-626# 

13-646 

13-690# 

13-717# 

13-745 

13-606# 

13-640# 

13-860 

13-896# 

13-935# 

13-982 

1 3- : 1 2# 

1 3- : 58# 

1 3— : 93 

1 3-; 09# 

1 3—; 45# 

1 3-; 74 

l3-;93# 

1 3— <42# 

13-<64 

13-<78# 

13- =34# 

13-=79 

1 3— >13# 

1 3— >41# 

13->95 

13-738# 

13-774# 

13-810 

13-841# 

13-872# 

13-A15 

13-A42# 

13-A93# 

13-619 

13-651# 

13-06# 

13-C38 

13-C74# 

13-048# 

13-085 

13-E09# 

13-E78# 


1 3— : 31 13-;31 
13-679 13-C54 


13-790 13— :40 13-;41 13-<24 13-770 13-876 13-A75 


L 
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13-690 

13-D44 

13-E53 

17-20# 

GET 

13-84 

13-105 

13-126 

13-185 


13-522 

13-543 

13-597 

13-618 


13-982 

1 3- : 03 

13-.-67 

1 3— : 89 


13-W4 

^-Wl 

13-A11 

13-A42 


15-143 

15-170 

15-201 

16-75 

GETBUF 

7-0# 

20-37 


13-758* 

GETINX 

7-0# 

13-446* 

13-447* 

GETSSF 

16-270 

16-444# 


13-371 

GETSTS 

13-79 

13-180 

13-278 


13-=76 

13->30 

13->86 

13-735 

GNS 

5-1 

5-1 

10-6 

10-28 


46-1 

46-1 

46-1 

46-1 


46-1 

46-1 

46-1 

46-1 

GO 

4-504# 

13-73 

13-92 

13-117 


13-509 

13-534 

13-580 

13-605 


13-990 

13-: 50 

1 3— : 76 

1 3—; 01 


13-778 

13-790 

1 3-81 5 

13-327 


15-183 

16-86 

16-118 

16-152 

GTSWR 

10-28 

46-1# 



HCE 

4-581# 

4-590 

13-C97 

13-D04 

25-456 

34-352 

34-382 

34-385 

HCI 

4-659# 

25-373 

34-348 


HCRC 

4-580# 

4-590 

16-221 

25-382 

HELP 

11-17 

61-23# 



HT 

4-492# 

40-1 

40-1 

43-82 

I At 

4-578# 

25-279 

25-651 

25-667 


50-77 

50-78 

50-81 

50-82 

IBSAVE 

42-1 

42-1 

42-1 

42-1 

IDXMSK 

4-720# 

20-51 

20-54 

21-45 

IE 

4-733# 

4-766# 



ILF 

4-588# 

25-151 

25-153 

31-51 

50-68 

50-70 

50-71 

50-72 

ILF02 

4-509# 




ILF24 

4-519# 




ILF26 

4-520# 




ILF 30 

4-524# 




ILF32 

4-524# 




ILF34 

4-524# 




ILF36 

4-524# 




ILF40 

4-524# 




ILF42 

4-524# 




ILF44 

4-524# 




ILF46 

4-524# 




ILF 54 

4-527# 




ILF 56 

4-528# 




ILF64 

4-531# 




ILF66 

4-532# 




ILF74 

4-535# 




ILF 76 

4-536# 




ILR 

4-587# 

31-51 

31-97 

31-101 

ILRG50 

4-718# 




ILRG52 

4-718# 




ILRG54 

4-711# 




ILRG56 

4-718# 




ILRG60 

4-718# 
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13-207 

13-229 

13-283 

13-304 

13-324 

13-638 

13-690 

13-711 

13-734 

13-761 

13-.-09 

13-.-66 

13-.-87 

1 3— <49 

1 3— <70 

13-611 

13-647 

13-C23 

13-C44 

13-D77 

16-96 

16-128 

16-162 

16-191 

20-31# 

13-759* 

19-13 

20-38 



13-496 

13-592 

13-685 

13-810 

13-900 

13-301 

13-A08 

13-A39 

13-608 

13-C20 

10-42 

10-53 

10-59 

12-30 

14-20 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 


13-168 

13-194 

13-220 

13-266 

13-291 

13-630 

13-673 

13-69S 

13-726 

13-798 

13—; 49 

13—; 78 

13-<32 

13— <61 

13-=02 

13-392 

13-A32 

13-B02 

13-639 

13-C06 

16-181 

23-17 

24-90 

24-102 

24-107 

13-E06 

13-E13 

16-221 

25-375 

25-380 

34-395 

34-398 

50-77 

50-78 

50-81 

34-352 

34-356 

34-359 

34-395 

34-398 

25-694 

28-48 

28-72 

32-24 

32-78 

50-85 

50-86 




42-1 

42-1# 

42-1* 

42-1* 

42-1* 

21-48 





31-111 

31-115 

32-24 

32-45 

32-48 

50-73 

50-74 

50-75 

50-76 

50-79 

32-232 

32-236 

32-239 

34-128 

34-131 


SEO 0295 


13-376 

13-815 

l3-=25 

13-D98 

13-397 

13-836 

1 3— =79 
13-E82 

13-420 

13-856 

13->33 

15-47 

13-449 

13-905 

13->89 

15-90 

13-501 

13-926 

13-738 

15-114 

13-977 

13- 074 

14- 20 
46-1 

1 3- : 62 
13-E78 
46-1 

46-1 

1 3-; 63 

15-46 

46-1 

46-1 

1 3-<46 

16-74 

46-1 

46-1 

1 3-=22 
19-10# 
46-1 
46-1 

13-316 

13-823 

13-=58 

13-C35 

24-123 

13-359 

13-848 

13->09 

13-D60 

25-47 

13-384 

13-888 

1 3->65 
13-D89 
25-50 

13-412 

13-913 

13-714 

13-E65 

34-346 

13-484 

13-965 

13-764 

15-125 

25-395 

50-85 

25-397 

50-86 

25-410 

25-425 

25-451 

32-81 

34-172 

34-194 

50-59 

50-69 

34-128 

50-80 

34-145 

50-83 

34-148 

50-84 

50-58 

50-87 

50-67 

50-88 


34-134 
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1LR662 4-718 # 

ILRG64 4-718# 

ILRG66 4-718# 

ILRG70 4-718# 

ILRG72 4-718# 

ILRG74 4-718# 

ILRG76 4-718# 

10TVEC 4-492# 10-23* 10-23* 

IPCKO 4-770# 

IPCK1 4-769# 

IPCK2 4-768# 

IPCK3 4-767# 


IR 

4-746# 

30-56 






I VC 

4-685# 

13-A17 

13-A21 

13-A48 

13-A52 

25-194 

25-195 


34-115 

34-550 

35-58 

50-58 

50-59 

50-60 

50-62 


50-72 

50-73 

50-74 

50-75 

50-76 

50-77 

50-78 


50-86 

50-87 

50-88 





LBC 

4-687# 

34-236 

34-254 

34-259 




LBT 

4-564# 

25-354 

25-653 

25-655 




LF 

4-492# 

40-1 

40-1 

43-80 

49-18 

57-79 


LODEV 

10-117 

49-28# 






LS 

4-641# 

30-80 

33-70 





LSC 

4-686# 

34-236 

34-270 

34-273 




LSI 

4-642# 

30-10 

33-70 





LSTRK 

7-0# 

12-57* 

13-951 

13-:20 

13— <87 

13-<95 

1 3— =42 


17-54 

25-590 

28-54 

34-178 




HCLK 

4-615# 







MCPE 

4-728# 

24-90 

24-107 

24-120 

24-123 

34-27 

34-30 

MDF 

4-620# 







HOPE 

4-744# 

25-481 

34-442 

34-445 




HEOENB 

7-0# 

12-48* 

16-39 

16-291* 




HFGFIL 

16-246 

16-275 

16-330 

16-475* 

61-7# 



HI 

4-623# 







MIXED 

52-4# 







HOC 

4-618# 







MOH 

4-649# 







MOL 

4-562# 

10-98 

28-151 

28-161 

28-162 

28-167 

28-172 


32-158 

33-30 

34-88 

34-256 

34-509 

34-510 

34-532 

MRD 

4-616# 







MS 

4-621# 







HSC 

4-624# 







MSORVS 

11-64 

49-23# 






hse 

4-694# 

13-C52 

17-29 





HSER 

4-619# 







HSGORV 

12-61 

49-24# 






HSHELP 

11-11 

49-8# 






MUR 

4-617# 







MUD 

4-640# 

30-81 

33-71 





MWP 

4-622# 







HXF 

4-743# 

25-339 

34-50 

34-63 

34-66 



N 

11-19 

49-35# 






NOTHSX 

4-590# 







NED 

4-740# 

10-87 

24-72 

24-76 

’ 27-31 



NEH 

4-741# 

25-324 






NONE 

12-7 

49-34# 






NOP 

4-508# 
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28-90 

50-63 

50-79 

28-213 

50-64 

50-80 

32-92 

50-67 

50-81 

32-99 

50-68 

50-82 

32-102 

50-69 

50-83 

32-171 

50-70 

50-84 

34-111 

50-71 

50-85 

13— =51 

13-=96 

1 3->60 

13-E98 

- 16-273 

16-384 

16-410 

28-200 

34-537 

31-37 

35-35 

31-40 

35-36 

32-68 

35-40 

32-145 

35-45 

32-146 

32-153 


j 
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SEO 0297 


NOTAVL 

NOTPRS 

NOTRM 

NSA 

OCC 

OFD 

OFFSET 

ON 

ONES 

OPE 

OPI 


OR 

PACACK 

PAKACK 

PAR 

PAT 

PDA 

PFECH 

PFECH1 

PFECH2 

PFECH3 

PFECH4 

PGE 

PGM 

PHA 

PIP 

PIRQ 

PIRQVE 

PLFS 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7 

PRIERR 


PS 

PSEL 

PSW 

PUT 


PUTBUF 

PUTINX 


10-105 
10-102 
10-96 
A- 647# 
4-628# 
4-661# 
4-514# 
4-569# 
13-474 
4-684# 
4-575# 
35-42 
50-70 
50-84 
4-745# 
4-518# 
4-517# 
4-585# 
4-748# 
4-635# 
43-59 
43-164 
43-164 
43-164 
43-164 
4-742# 
4-565# 
4-636# 
4-561# 
35-72 
4-492# 
4-492# 
4-633# 
4-492# 
4-492# 
4-492# 
4-492# 
4-492# 
4-492# 
4-492# 
4-492# 
13-109 
13-840 
13-742 
4-492 
4-729# 
4-492# 
13-64 
13-516 
13-997 
13-797 

7-0# 
13-699 
1 3— >73 


49-30# 

49-29# 

49-27# 


13-355 13-357 


i ;ro 

32-145 

13-570 

IJ ■ l J 

32-201 

13-663 

32-204 

52-21# 

33-29 

34-457 

34-460 








25-178 

50-57 

50-71 

50-85 

28-145 

50-58 

50-72 

50-86 

28-169 

50-59 

50-73 

50-87 

31-51 

50-60 

50-74 

50-88 

31-69 

50-61 

50-75 

31-73 

50-62 

50-76 

32-24 

50-63 

50-77 

32-61 

50-64 

50-78 

32-64 

50-65 

50-79 

32-155 

50-66 

50-80 

34-83 

50-67 

50-81 

34-86 

50-68 

50-82 

34-534 

50-69 

50-83 

16-118 

4-518 

24-135 

15-125 

24-139 

24-151 

28-30 

32-24 

31-29 

32-34 

34-41 

34-46 






43-164# 

43-165# 

43-168# 

43-171# 

43-173# 

33-29 

15-180 

35-77 


16-149 28-161 28-182 28-187 32-145 32-216 32-221 


41-5 

12- 50 
10-26 

13- 130 
13-860 
13-308 

4-492X 


41-9 

13-7 

13-211 

13-935 

13-345 


20-40 21-34 22-5 


23-11 27-22 


13-233 

Iftli 


13-308 

13-.-93 

13-A46 


13-328 
13— ; 13 
13— 6l5 


13-401 
1 3-: 70 
13-651 


13-75 

13-99 

13-120 

13-176 

13-201 

13-223 

13-537 

13-588 

13-612 

13-632 

13-681 

1 3-705 

13-:58 

13-:83 

13-;03 

13— ;59 

13-.-81 

1 3-<42 

13-823 

13-835 

13-888 

13-A04 

13-A35 

13-A93 

15-128 

15-186 

16-87 

16-119 

16-153 

16-182 

ll-5? 

16-292* 

13-93 

21-31 

13-169 

13-195 

13-267 

13-292 

13-799 

13-824 

13-889 

13-914 

13-966 

13-991 

13-722 

13-779 

13-791 

13-816 

13-829 

13-885* 


13-424 

13-;91 

13-C27 


13-274 
13-728 
13— <64 
13-904 
21-28# 

13-360 
13— : 51 
13-386* 


32-221 

33-29 

34-509 

r 

34-515 

34-520 

29-14 




* 

13-526 
13— <53 
13-C48 

13-547 

1 3— <74 
13-081 

13-622 

1 3— =34 
13-E02 

13-642 

13-=88 

13-E86 

13-715 
1 3->37 
24-39# 

13-298 

13-806 

1 3-=1 8 
13-030 

13-318 

13-830 

1 3-=72 
13-841 

13-367 

13-850 

13->26 

13-C16 

13-391 

13-896 

13->82 

13-C38 

13-414 

13-920 

13-731 

13-070 

13-385 
13— : 77 
13-894 

13-485 

13-;50 

13-A84 

13-510 

13-<33 

13-C07 

13-581 

1 3-=07 
13-061 

13-606 
1 3-=63 
13-E66 


13-738 

13->93 


13-492 

13-973 

13-786 

13-092 


13-674 

13->17 

15-126* 
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PWRVEC 
QUES 
R6 
R 7 

RCLSTS 

RD 

RDCHR 

RDLIN 

RDOCT 

RDY 

READY 

RE CAL 

RESREG 

RESVEC 

REX 

RG 

RGDTPT 

RH 

RIP 

RLEASE 

RMAS 

RMAS1 

RMASO 

RMBA 


RHBAE 
RMBAEI 
RMBAEO 
RMBA I 
RMBAO 


RMCS1 


RWCS1I 

RMCSIO 


15-127* 

15-184* 

15-185* 

16-62 

21-32 

4-492# 

10-23* 

10-23* 

47-1* 

47-1* 

49-6# 

4-492# 

10-23 

10-23* 

10-23* 


4-492# 

15-209 

16-170 

32-15# 



4-533# 

11-12 

45-1 

11-35 

>Or-Sf 
1 1 1 

11-82 

46-1# 

44-1 

46-1# 

4-732# 

12-37# 

4-511# 

23-17 

14- 24 

15- 183 

23-18 

16-152 

24-36 

24-89 


RMCS2 

RMCS2I 


RMCS20 

RMCS3 


43-148 
4-49 2# 
4-631# 
4-629# 
52-3# 
4-534# 
13-A32 
4-516# 
4-513# 
4-704# 
7-0# 
7-0# 
4-776# 
13-.-55 
16-67 
4-779# 
7-0# 
7-0# 
7-0# 
7-0# 
13-:33* 
13-A33* 
16-31 
4-700# 
13-585 
13— =13 
15-126 
7-0# 
25-47 
7-0# 
13-345* 
13-698* 
13-;35* 
13-815* 
13-D60* 
34-324 
4-777# 
29-16* 
7-0# 
25-310 
34-498 
7-0# 
4-780# 


46-1# 


13-117 

13-628 


13-220 

13-B39 


33-50 59-13 


13-12* 

13-<38 


13-442 

13-41* 

13-.-34* 

13-A68* 

25-554 

4-774# 

13-609 

l3-=69 

15- 184 

16- 208 
25-49 
13-42* 
13-359* 
13-726* 
13-;49* 
13-i27* 
13-D89* 
34-344 
10-84* 
29-18* 
13-428 
25-325 
34-500 


13-13 
13— =1 1 


13-754 

13-118* 

13-;79* 

13-827* 

25-558 

10-89 

13-678 

13— >23 

16-68 

24- 65 

25- 60 
13-56* 
13-384* 
13-784* 
13-;78* 
13-870* 
13-E45* 


13-534 

13-C35 


13-95 

13-=68 


25-560 
13-153* 
13— <1 7* 
13-683* 

13-9* 

13-702 

13->79 

20-42 

24- 67 

25- 103 
13-73* 
13-412* 
13-798* 
13— <1 8* 
13-892* 
13-E65* 


24-142 

47-1* 


30-31 


13-913 

13-D89 


13-197 
13— >22 


25-562 

13-221* 

13-<62* 

13-C36* 

13-61 

13-803 

13-728 

21-36 

24- 69 

25- 540 
13-92* 
13-470* 
13-823* 
13— <32* 
13-A32* 
15-125* 


47-1* 


13-990 

16-181 


13-294 
13— >78 


30-42 
13-251* 
1 3— =01 * 
13-D37* 

13-96 

13-827 

13-783 

23- 16 

24- 86 
30-29 
13-117* 
13-484* 
13-848* 
13— <61 * 
13-A69* 
15-183* 


13-433 

25-340 

59-13 


13-435 

25-482 


13-742 

25-556 


13-746 

30-51 


13-;78 


13-387 

13-727 


59-14 
13-344* 
1 3— =57* 
13-D90* 

13-173 

13-893 

13-794 

27-28 

24-88 

33-16 

13-154* 

13-509* 

13-888* 

13-=02* 

13-A83* 

16-86* 


10-85* 10-87 12-55* 12-56* 13-14 


13-748 

34-50 


EG 0298 


47-1* 47-1* 


13— <61 

13-=02 

13— =58 

13->09 

13- >65 

13-714 

13-927 

13-512 

13-793 

13-608 

13-931 

13-701 

13-A00 

13-826 

13-A89 

13-916 

1 3— Cl 2 

13-993 

13-D66 

1 3- : 79 
13-E71 

13-469* 

13->08* 

13-E44* 

13-535* 

13->64* 

16-60* 

13-565* 

13-713* 

16-246 

13-658* 

13-763* 

16-275* 

13-783* 

13-928* 

16-279 

13-880* 

13-958* 

16-282* 

13-957* 

13-969* 

17-21 

13-198 
13-917 
13- 920 

13-271 

13-970 

13-932 

13-295 

13-994 

13-A01 

13-364 

1 3— : 55 
13-A90 

13-388 

1 3— : 80 
13-C13 

13-489 

13-;56 

13-D67 

13-513 

1 3-<39 
13-E 72 

24-91 

34-27 

13-168* 

13-534* 

13-913* 

13-=58* 

13-602* 

16-118* 

24-102 

34-29 

13-194* 

13-566* 

13-965* 

13->09* 

13-628* 

16-152* 

24-106 

34-31 

13-220* 

13-580* 

13-990* 

1 3— >65* 
13-639* 
16-181* 

24-108 

59-13 

13-252* 

13-605* 

1 3— : 34* 
13-714* 
13-684* 
16-312 

24-120 

13-266* 

13-630* 

13-:50* 

13-764* 

13-C06* 

17-26 

24- 122 

13-291* 

13-659* 

1 3- : 76* 
13-778* 
13-C35* 

25- 27 

24- 124 

13-316* 
13-673* 
13-;01* 
13-790* 
1 3-D 38* 

25- 576 

13-15* 

13-16 

13-17* 

20-41 

21-35 

27-27* 

27-29 

24-47 

34-63 

24-72 

34-65 

24-74 

34-67 

24-75 

34-442 

25-95 

34-444 

25-166 

34-446 

25-267 

34-496 
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RHCS3I 

7-0# 














RMCS30 

7-0# 














RMDA 

4-701# 

13-58 

13-170 

13-268 

13-361 

13-486 

13-582 

13-675 

13-800 

13 890 

13-967 

13-:52 

13-.-51 

13-<34 


1 3-=08 

l3-=64 

1 3— >1 8 

13->74 

13-723 

13-780 

13-317 

13-396 

13-A85 

13-C08 

13-D62 

13-E67 

16-63 


RMOAI 

7-0# 

25-628 

25-699 

59-14 

59-16 










RMOAO 

7-0# 

13-39* 

13-150* 

13-248* 

13-341* 

13-466* 

13-562* 

13-655* 

13-781* 

13-875* 

13-943* 

13-951* 

13-952* 

1 3—- 20* 


13-:21* 

l3-:30* 

13-;30* 

13-;39 

1 3-<03* 

1 3-<04 

1 3— <1 3* 

13— <22 

1 3— <86* 

i 3-<87 

1 3— <95* 

13-<96* 

13-=42* 

1 3-=43* 


1 3— =51 * 

1 3— =52* 

13-=96* 

13- =97* 

13->05* 

13— >45* 

1 3->46 

13— >51 * 

13->60* 

13— >61 * 

13-701* 

13-702 

13-7 iO* 

13-760* 


13-768 

13-866* 

13-874 

13-A64* 

13-881* 

13-D34* 

13-E40* 

13-E92* 

13-E93 

13-E96* 

13-E97* 

13-E98 

13-F01* 

16-57* 


16-233* 

16-238* 

16-241* 

16-242 

16-248 

16-250 

16-273* 

16-281* 

16-307 

16-425* 

17-24 

25-588 

25-589 

25-628 


28-54 

28-57 

28-61 

28-65 

34-178 

34-181 

34-185 

34-189 







RMD8 

4-778# 

13-18* 

13-19 

13-446 

13-758 

19-20 









RMDBI 

OiifsQA 

7-0# 

13-450 

13-762 












RnDBO 

RMOC 

4-710# 

13-59 

13-171 

13-269 

13-362 

13-487 

13-583 

13-676 

13-801 

13-891 

13-968 

1 3— : 53 

1 3—; 52 

1 3— <35 


1 3-=09 

l3-=65 

1 3— >1 9 

1 3->75 

13-724 

13-781 

13-318 

13-397 

13-A86 

13-C09 

13-D63 

13-F68 

16-64 


RMOC1 

7-0# 

25-712 

59-14 

59-16 











RMDCO 

7-0# 

13-38* 

13-149* 

13-247* 

13-340* 

13-465* 

13-561* 

13-654* 

13-780* 

13-878* 

13-955* 

1 3- : 29* 

l3-:48 

13-:49* 


13-:75» 

1 3—; 29* 

13— <1 2* 

13-<99* 

1 3— =55* 

13->04* 

1 3->59* 

13-709* 

13-750* 

13-751 

13-759* 

13-965* 

13-A63* 

13-880* 


13-D33* 

13-139* 

13-E49 

13-F02* 

13-F03 

16-56* 

16-239 

16-268 

16-272* 

16-306 

16-416* 

16-424* 

17-23 

25-587 


28-50 

34-174 













RMOS 

4-702# 

10-86 

10-98 












RMDS1 

7-0# 

15-122 

15-180 

16-115 

16-149 

24-104 

25-34 

25-36 

25-81 

25-98 

25-132 

25-136 

25-192 

25-219 


25-354 

25-654 

28-96 

28-151 

28-160 

28-167 

28-171 

28-173 

28-182 

28-186 

28-188 

28-197 

28-199 

28-201 


28-211 

28-215 

28-217 

30-124 

31-23 

31-25 

31-27 

31-37 

31-39 

31-41 

32-68 

32-106 

32-144 

32-153 


32-157 

32-159 

32-169 

32-173 

32-174 

32-185 

32-187 

32-189 

32-201 

32-203 

32-205 

32-216 

32-220 

32-222 


33-28 

34-88 

34-90 

34-119 

34-256 

34-322 

34-457 

34-459 

34-461 

34-508 

34-515 

34-519 

34-521 

34-532 


34-536 

34-538 

34-548 

34-552 

34-554 

35-34 

35-40 

35-44 

35-46 

35-56 

35-60 

35-61* 

35-62 

35-72 


35-76 

35-78 

59-13 












RMOSO 

7-0# 














RMDT 

4-707# 

10-92 

10-94 

43-26 











RMOTI 

7-0# 

59-5 

59-17 












RMOTO 

7-0# 














RMEC1 

4-714# 














RMEC11 

7-0# 

18-32 

59-14 












RMEC10 

7-0# 














RMEC2 

4-715# 

19-15 













RMEC2I 

7-0# 

18-53 

19-14 

30-92 

33-94 

59-15 









RMEC20 

7-0# 














RMER1 

4-703# 

24-143 













RMER1 I 

7-0# 

13-855 

13-860 

13-861 

13-C58 

13-C63 

13-C64 

13-C97 

13-DO 2 

13-D03 

13-E06 

13-El 1 

13-El 2 

16-221 


18-23 

18-25 

24-135 

24-150 

24-152 

25-76 

25-152 

25-179 

25-222 

25-237 

25-280 

25-357 

25-383 

25-398 


25-413 

25-497 

25-516 

25-519 

25-651 

25-667 

25-682 

25-694 

26-24 

28-30 

28-37 

28-71 

28-145 

28-148 


28-169 

30-69 

31-51 

31-55 

31-57 

31-58 

31-69 

31-71 

31-72 

31-83 

31-85 

31-86 

31-97 

31-99 


31-100 

31-111 

31-113 

31-114 

32-24 

32-29 

32-33 

32-35 

32-45 

32-47 

32-49 

32-61 

32-63 

32-65 


32-78 

32-80 

32-82 

32-155 

32-232 

32-236 

32-238 

32-240 

32-250 

32-252 

32-254 

32-264 

32-268 

32-270 


33-41 

34-41 

34-45 

34-47 

34-83 

34-85 

34-87 

34-128 

34-131 

34-133 

34-135 

34-145 

34-147 

34-149 


34-159 

34-161 

34-163 

34-193 

34-283 

34-286 

34-290 

34-292 

34-301 

34-303 

34-305 

34-315 

34-317 

34-318 


34-352 

34-356 

34-358 

34-360 

34-369 

34-371 

34-373 

34-382 

34-384 

34-386 

34-395 

34-397 

34-399 

34-417 


34-419 

34-421 

34-427 

34-483 

34-485 

34-487 

34-534 

35-42 

59-13 






RMER10 

7-0# 

24-139 













RMER2 

4-713# 














RMER21 

7-0# 

13-931 

13-:08 

1 3-=30 

13— =84 

13-A17 

13-A19 

13-A20 

13-A48 

13-A50 

13-A51 

13-C71 

13-C76 

13-C77 


13-C84 

13-C89 

13-C90 

15-55 

16-83 

16-224 

16-231 

24-137 

25-78 

25-196 

25-252 

25-428 

25-459 

26-27 


28-32 

28-90 

28-93 

28-104 

28*132 

28-135 

26-184 

28-213 

30-114 

32-31 

32-92 

32-99 

32-101 

32-103 


32-116 

32-118 

32-120 

32-130 

32-132 

32-134 

32-171 

32-218 

32-266 

33-103 

34-43 

34—1 1 1 

34-114 

34-1 16 


l 
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34-207 

34-211 

34-236 

34-240 

34-242 

34-244 

34-254 

34-258 

34-260 

34-270 

34-272 

34-274 

34-288 

34-470 


34-472 

34-474 

34-517 

34-550 

35-58 

35-74 

35-88 

35-94 

35-96 

35-98 

35-108 

35-110 

35-112 

59-13 

RHER20 

7-0# 














RUHR 

4-711# 














RUHR I 

7-0# 














RNHRO 

7-0# 














RMLA 

4-705# 














RNLAI 

7-0# 

59-16 













RHLAO 

7-0# 














RHHR1 

4-706# 

13-885 

13-895 












RFWR1I 

7-0# 

30-79 

33-69 

59-17 











RWW10 

7-0# 

13-884* 

13-893* 












RHHR2 

4*712# 














RPV4R2I 

7-0# 

30-101 

33-81 

59-17 











RHHR20 

RNOF 

7-0# 

4-709# 

13-60 

13-172 

13-270 

13-363 

13-483 

13-584 

13-677 

13-802 

13-892 

13-969 

13-:54 

13-;53 

13-<36 


13-= 10 

13--66 

1 3->20 

1 3— >76 

13-725 

13-782 

13-819 

13-898 

13-A87 

13— Cl 0 

13-064 

13-E69 

16-66 

21-51 

RHOFI 

7-0# 

18-21 

18-27 

25-373 

25-447 

25-449 

25-514 

25-623 

34-348 

34-424 

59-14 

59-16 



RNOFO 

7-0# 

13-36* 

13-140 

13-142* 

13-151* 

13-249* 

13-342* 

13-467* 

13-563* 

13-656* 

13-778* 

13-866 

13-868* 

13-876* 


13-941 

13-944* 

13-953* 

13-.-18 

1 3— : 22* 

13-.-31* 

13-;31* 

13— <1 4* 

13-<97* 

13-=40 

13-=44* 

13-=53* 

l3-=94 

13--98* 


1 3->06* 

1 3->49 

13— >52* 

13->62* 

13-711* 

13-761* 

13-855 

13-857* 

13-867* 

13-A65* 

13-B25* 

13-B26* 

13-667 

13-879* 


13-D35* 

13-E42* 

16-59* 

16-235* 

16-274* 

16-283* 

16-375 

16-401 

17-32 

17-37 

25-599 

25-626 

28-59 

28-63 


34-183 

34-187 

59-11 












RMR 

4-586# 

31-51 

31-83 

31-87 

32-232 

32-250 

32-253 

34-128 

34-159 

34-162 





RNSN 

4-708# 














RNSNI 

7-0# 

59-17 













RHSNO 

RNUC 

7-0# 

4-775# 

13-10* 

13-11 

13-94 

13-196 

13-293 

13-386 

13-511 

13-607 

13-700 

13-825 

13-915 

13-992 

13— r 78 


13-;54 

1 3— <37 

13-= 12 

13-=67 

13— >21 

13— >77 

13-726 

13-792 

13-830 

13-899 

13-A88 

13— Cl 1 

13-065 

13-E70 


16-65 














RNWCI 

7-0# 

18-72 

25-538 

25-551 

25-572 

25-677 

59-14 








RNUCO 

7-0# 

13-40* 

13-152* 

13-193* 

13-219* 

13-250* 

13-343* 

13-468* 

13-564* 

13-657* 

13-782* 

13-879* 

13-956* 

1 3— : 32* 


13-; 33* 

1 3— <16* 

13-=00* 

13— -=56* 

13->07* 

13->63* 

13-712* 

13-762* 

13-868* 

13-A66* 

13-882* 

13-036* 

13-E43* 

16-58* 


16-^76* 

16-309 

17-22 

18-73 

25-552 

25-573 









RQA 

4-670# 

30-102 

33-82 












ROB 

4-671# 

30-102 

33-82 












RTC 

4-515# 














SAl 

4-551# 














SA16 

4-547# 














SA2 

4-550# 














SA4 

4-549# 














SA8 

4-548# 














SAONSK 

4-555# 

25-596 













SAVREG 

43-13 

46-1# 













SC 

4-726# 

24-90 

24-107 

24-123 

30-30 










SCO 

4-604# 














SCI 

4-603# 














SC2 

4-602# 














SC3 

4-601# 














SC4 

SCOPE 

4-600# 

4-492# 

13-2 

13-33 

13-146 

13-244 

13-337 

13-462 

13-558 

13-651 

13-775 

13-872 

13-948 

13-:26 

13-;26 


l3-<09 

13-<92 

1 3— =48 

13->02 

13->57 

13-707 

13-756 

13-862 

13-A60 

13-B73 

13-027 

13-E36 

14-9 


SCTHSG 

13-44 

13-156 

13-254 

13-347 

13-472 

13-568 

13-661 

13-786 

1 3- : 36 

13-;37 

1 3— <20 

13-766 

13-872 

1 3-A71 


13-886 

13-D40 

13-E47 

49-3# 











SCTHSK 

4-606# 














SEARCH 

4-521# 

25-100 

25-533 
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SECERR 

13-113 

13-134 

13-215 


13-939 

1 3- . 1 6 

13-:97 


13-849 

13-A24 

13-A55 

SEEK 

4-510# 

13-56 

13-73 

SEKSTS 

13-88 

13-189 

13-287 

SHUT 

14-16 

14-20 

14-22# 

SHUT2 

44-1 

44-1 

44-3# 

SIZCLK 

12-28 

22-3# 


SKI 

4-683# 

15-178 

16-147 


32-119 

32-218 

34-173 


35-111 



SNGPRT 

4-652# 



SSE 

4-689# 

13-931 

13-:08 

SSEI 

4-660# 

13-866 

13-868 


16-375 

16-401 

17-37 

SSF 

4-696# 

13-C50 

13-E57 

SSFENB 

7-0# 

13-E55 

16-338* 

SSFIL 

16-336 

16-446 

16-451 

STACK 

4-492# 

10-23 

13-2 


13-;26 

13-<09 

13-<92 

STANOA 

10-&6 

11-3# 


START 

5-1 

10-17# 

12-33 

START1 

5-3 

10-14# 

13-28 

START2 

10-15 

10-18# 


STCDRV 

35-27# 



STIMER 

13-67 

13-A96 

13-B33 

STKLMT 

4-492# 



STOP 

41-1 

41-5# 


STSD1 

55-1 

55-2 

55-8 

STS02 

55-1 

55-2 

55-8 

STSD3 

59-16# 



STS04 

55-1 

55-2 

55-8 

STSF 

56-1 

56-1 

56-1 


56-11 

56-12 

56-12 

STSH1 

54-1 

54-2 

54-8 

STSH2 

54-1 

54-2 

54-8 

STSH3 

58-25# 



STSH4 

54-1 

54-2 

54-8 


SWOO 4 49? 4-492# 
SUOI 4-492 4-492# 
SW02 4-492 4-492# 
SW03 4-492 4-492# 
SWO* 4-492 4-492# 
SU05 4-492 4-492# 
SU06 4-492 4-492# 
SU07 4-492 4-492# 
SW08 4-492 4-492# 
SW09 4-492 4-492# 
SW1 4-492# 


SU12 4-492# 

SW13 4-492# 16-260 43-14 

SU14 4-49?# 


13-237 
13—; 1 7 
13-019 
13-168 
13-380 
44-6 

13-312 

1 3—; 74 
13-B65 
13-266 
13-505 

13-332 
13—; 95 
13-C31 
13-359 
13-601 

13-405 

1 3— <57 
13-D12 
13-484 
13-694 

28-49 

34-176 

28-52 

34-197 

28-75 

34-208 

28-105 

34-210 

13-=30 

13-941 

25-449 

1 3— =84 
13-944 
25-599 

13-C71 
13-: 18 
25-624 

13-C78 

13-:22 

25-626 

till 

II iMO'Kj* 

CO 

* 

16-470 

13-146 

1 3— >02 

61-17# 

13-244 

1 3— >57 

13-337 

13-707 

12-42 

14-27 




23-14 

23-38# 



55-10 

55-11 

55-12 

59-13# 

55-10 

55-11 

55-12 

59-14# 

55-10 

55-11 

55-12 

59-17# 

56-2 

56-2 

56-2 

56-8 

56-12 

60-7# 



54-9 

54-11 

54-12 

54-13 

54-9 

54-11 

54-12 

54-13 

54-9 

54-11 

54-12 

54-13 
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SEQ 030 * 


13-530 

1 3— <78 
13-D85 
13-580 
13-819 

13-551 

1 3— =38 
13-E21 
13-673 
13-909 

13-626 
13-= 92 

1 3— £88 
13-798 

1 3-986 

13-646 
13— >41 
25-24# 
13-888 

1 3— : 71 

13-7^9 

1 3->97 

13-965 

28-19# 

13-844 

13-746 

1 3— : 50 

13-864 

13-812 

28-107 

34-211 

28-111 

34-213 

28-122 

34-225 

28-184 

34-517 

30-115 

35-74 

32-92 

35-89 

32-116 

35-108 

16-224 

13-.-31 

25-637 

16-231 

1 3— =40 
28-63 

25-458 

13-=44 

34-187 

l3-=94 

13-=98 

13-E42 

16-235 

13-462 

13-756 

13-558 

13-362 

13-651 

13-A60 

13-775 

13-873 

13-872 

13-D27 

13-948 

13-E36 

1 3- : 26 

56-8 

56-8 

56-10 

56-10 

56-10 

56-11 

56-11 


58-26# 


i 



8 


16-260 

42-1 

41- 1 

42- 1 

41-1 

43-14 

• i 
«— >r 

— » 
i i 

i i 

• 

i i 

1.5-655 

13-781 

13-875 

13-943 

13-:30 

13-.-30 

13->05 

13-302 
13-811 
13— =23 
13-D96 

13-322 
13-834 
13- =77 
13-E80 

13-372 
13-854 
13— >31 
15-136 

13-395 

13-901 

1 3— >87 
15-194 

13-418 

13-924 

13-736 

16-95 

13-497 

13-978 

13-802 

16-127 

13-520 

13-:01 

13-839 

16-161 


25-540 



G 8 


SEQ 0303 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


TST5 

13-337# 

41-1 













TST6 

13-462# 

41-1 













TST7 

13-558# 

41-1 













TS7NNB 

43-36* 

43-37* 

43-39 

43-151# 











TSTPRP 

13-52 

13-164 

13-262 

13-355 

13-480 

13-576 

13-669 

13-794 

13-884 

13-961 

13-:44 

13-;45 

1 3-<28 

1 3— =05 


1 3-=61 

13->13 

1 3- >69 

13-713 

13-774 

13-880 

13-A28 

13-A79 

13-894 

13-D48 

13-E61 

15-$8# 



TSTQUE 

7-0# 

12-3 

12-9* 

12-51 

13-2 

13-33 

13-146 

13-244 

13-337 

13-462 

1 1-558 

13-651 

13-775 

13-872 


13-948 

1 3- : 26 

13-;26 

13-<09 

1 3-<92 

1 3— =48 

1 3->02 

13— >57 

13-707 

13-756 

13-862 

13-A60 

13-873 

13-027 


13-E36 

14-11 

14-13* 

14-17 

14-17* 

27-24 

29-17 

30-54 

33-53 






TYPBN 

43-141 

46-1# 













TYPDS 

14-20 

14-20 

43-135 

46-1# 











TYPE 

10-6 

10-28 

10-42 

10-48 

10-53 

10-59 

10-76 

10-80 

10-82 

10-96 

10-102 

10-105 

10-109 

10-117 1 


10-120 

10-121 

10-122 

10-129 

11-11 

11-16 

11-17 

11-i9 

11-20 

11-28 

11-32 

11-34 

11-40 

11-44 


11-48 

11-54 

11-61 

11-62 

11-64 

11-69 

11-75 

11-86 

11-87 

11-92 

11-100 

12-3 

12-6 

12-7 


12-14 

12-25 

12-30 

12-60 

12-61 

13-44 

13-156 

13-254 

13-347 

13-472 

13-568 

13-661 

13-786 

13-:36 


13-;37 

1 3-<20 

13-766 

13-872 

13-A71 

13-886 

13-D40 

13-E47 

14-20 

14-20 

14-20 

37-1 

38-1 

39-1 


40-1 

42-1 

42-1 

43-20 

43-21 

43-31 

43-32 

43-38 

43-43 

43-45 

43-53 

43-96 

43-102 

43-106 


43-118 

43-124 

43-126 

43-144 

43-146 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 


44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

46-1# 

47-1 




TYPOC 

10-8 

11-33 

11-47 

43-138 

44-1 

46-1# 









TYPON 

46-1# 














TYPOS 

10-45 

10-56 

10-81 

12-16 

12-62 

43-22 

43-39 

43-44 

43-46 

46-1# 





UO 

4-752# 














Ul 

4-752# 














U2 

4-752# 














UNS 

4-574# 

30-70 

31-51 

31-55 

31-59 

32-232 

32-264 

32-269 

34-283 

34-286 

34-291 




UNTHSK 

4-756# 

24-4® 

24-50 












UNTOFF 

10-109 

49-31# 













UNTON 

10-120 

49-32# 













UPE 

4-739# 

25-266 













USE 

4-695# 

13-C52 

17-29 












USPfIL 

16-279 

16-282 

16-333 

61-12# 











W 

4-568# 

13-122 

16-115 

25-192 

28-96 

28-161 

28-162 

28-211 

28-216 

31-23 

31-26 

32-106 

32-145 

32-146 


32-169 

32-175 

33-29 

34-90 

34-119 

34-509 

34-510 

34-548 

34-553 

35-35 

35-36 

35-56 

35-61 


WC 

4-638# 

30-80 

33-70 












wco 

4-525# 














MCE 

4-738# 

13-428 

13-434 

13-742 

13-747 

25-165 

50-77 

50-78 







WCEHI 

4-763# 














UCELO 

4-764# 














WC F 

4-583# 

4-590 

25-236 

34-483 

34-486 










WCH 

4-526# 

13-316 

13-412 

13-630 

13-726 

13-848 

13— ;01 








UO 

4-529# 














WH 

4-530# 

13-42 

13-92 

13-154 

13-194 

13-252 

13-291 

13-345 

13-384 

13-470 

13-509 

13-566 

13-605 

13-659 


13-698 

13-784 

13-823 

1 3- : 34 

13-:76 

13— r 35 

13-;49 

13-<18 

1 3-<32 

13-764 

13-790 

13-870 

13-892 

13-A69 


13-483 

13-802 

13-884 

13-C06 

13-D38 

13-660 

13-145 

13-E65 

34-346 






WLE 

4-577# 

4-590 

25-217 

25-221 

25-234 

25-249 

25-264 

34-283 

34-315 

34-319 

34-327 

50-81 

50-82 


URL 

4-563# 

25-219 

34-322 












XSIZ 

10-70# 

11-71 

11-101 












XXDP 

7-0# 

10-33* 

10-36* 

10-37 

10-39* 

10-44 

10-55 

10-113 

10-115 






y 

ZEROS 

13-46 

13-158 

13-256 

13-349 

13-788 

13-.-38 

13-A73 

13-688 

13-D42 

52-38# 






I 
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| CROSS i 

REFERENCE 

TABLE (CREF V04.00 

) 




SSCNRE 

5-10# 







SSCNTN 

5-10# 

6-0 

6-0 

6-0 

6-0 

6-0 


SSFSCA 

4-492# 






SSNEWT 

4-492# 

13-2 

13-33 

13-146 

13-244 

13-337 

13-462 


13-<09 

13-<9 2 

1 3— =48 

1 3— >02 

1 3— >5 7 

13-707 

13-756 

SSSET 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

SSSETN 

10-23 

10-23# 





SSSKIP 

4-492# 







.SACT1 

4-484# 

5-5 






.SAPTB 

4-484# 

6-0 

6-0# 



r 


.SAPTH 

4-484# 

5-8 






.SAPTY 

4-484# 

48-1 






.SCATC 

4-480# 

5-1 






.SCUTA 

4-481 # 

5-10 






• SCOP 

4-481# 

14-20 






.SERRO 

4-481# 

42-1 






.SPOUE 

4-483# 

47-1 






.SROOE 

4-482# 







.SR DOC 

4-482# 

45-1 






.SREAD 

4-482# 

44-1 






. SSAVE 

4-483# 

36-1 






.SSCOP 

4-481# 

41-1 






•SSIZE 

4-483# 







.STRAP 

4-483# 

46-1 






.STYP8 

4-482# 

37-1 






.STYPD 

4-482# 

38-1 






.STYPE 

4-481# 

40-1 






.STYPO 

4-482# 

39-1 






.EOUAT 

4-480# 

4-492 






.HEADE 

4-480# 

4-488 






.SETUP 

4-480 # 

4-785 






.SWRHI 

4-480# 

4-489 






.SWRLO 

4-480# 

4-489# 

4-490 





CALCLR 

4-192# 







CAL SUB 

4-206# 

13-44 

13-52 

13-64 

13-75 

13-84 

13-88 


13-130 

13-132 

13-134 

13-138 

13-156 

13-164 

13-176 


13-223 

13-229 

13-233 

13-235 

13-237 

13-241 

13-254 


13-310 

13-312 

13-318 

13-324 

13-328 

13-330 

13-332 


13-401 

13-403 

13-405 

13-414 

13-420 

13-424 

13-431 


13-522 

13-526 

13-528 

13-530 

13-537 

13-543 

13-547 


13-601 

13-612 

13-618 

13-622 

13-624 

13-626 

13-632 


13-690 

13-694 

13-705 

13-711 

13-715 

13-717 

13-719 


13-806 

13-815 

13-819 

13-830 

13-836 

13-840 

13-842 


13-896 

13-905 

13-909 

13-920 

13-926 

13-935 

13-937 


1 3— : 1 2 

13-.-14 

13-.-16 

13-.-36 

13-:44 

13-.-58 

1 3— : 67 


13-;09 

13-;13 

1 3—; 1 5 

13—; 1 7 

1 3— ;37 

13-.-45 

1 3—; 59 


13-;93 

13-;95 

13-;99 

13-<20 

1 3— <28 

13— <42 

1 3— <49 


1 3-<78 

13— <82 

13-=05 

13-= 18 

1 3— =25 

13-=34 

1 3-=36 


1 3— >1 3 

13->26 

1 3— >33 

13- >37 

13- >39 

13— >41 

1 3— >69 


13-738 

13-742 

13-744 

13-746 

13-766 

13-774 

13-786 


13-841 

13-845 

13-847 

13-849 

13-853 

13-872 

13-880 


13-A42 

13-A46 

13-A55 

13-A71 

13-A79 

13-A93 

13-804 


13-851 

13-858 

13-865 

13-886 

13-894 

13-C16 

13-C23 


13-C74 

13-C87 

13-D00 

13-012 

13-D40 

13-D48 

1 3—070 


13-E09 

13-E21 

13-E47 

13-E61 

13-E75 

13-E78 

13-E80 

come* 

4-492# 






SEC 0304 


13-558 

13-651 

13-775 

13-872 

13 

-948 

1 3— :26 

1?-;26 

13-862 

13-A60 

13-873 

13-D27 

13 

-E36 


46-1 

46-1 

'6-1 

46-1 

46 

-1 

46-1 

46-1# 


13-99 

13-105 

13-109 

13-1 il 

13-113 

13-120 

13-126 

13-185 

13-189 

13-201 

13-207 

13-211 

13- 

■213 

13-215 

13-262 

13-274 

13-283 

13-287 

13-298 

13- 

■304 

13-308 

13-347 

13-355 

13-367 

13-376 

13-380 

13- 

•391 

13-397 

13-449 

13-472 

13-480 

13-492 

13-501 

13- 

■505 

13-516 

13-549 

13-551 

13-555 

13-568 

13-576 

13- 

588 

13-597 

13-638 

13-642 

13-644 

13-646 

13-661 

13- 

■669 

13-681 

13-728 

13-734 

13-738 

13-745 

13-761 

13- 

•786 

13-794 

13-844 

13-850 

13-856 

13-860 

13-862 

13- 

■864 

13-884 

13-939 

13-961 

13-973 

13-982 

13-986 

13- 

997 

1 3— : 05 

13-.-71 

1 3— :83 

1 3— : 89 

1 3— : 93 

1 3- : 95 

13- 

:97 

13-;03 

13— ; 66 

13-; 70 

13-;72 

1 3—; 74 

1 3—; 81 

13- 

;87 

13-;91 

13— <53 

13— <.55 

1 3— <57 

13-<64 

1 3— <70 

13- 

<74 

13-<76 

13-=38 

13-= SI 

13-= 72 

1 3— =79 

1 3— =88 

13- 

=90 

1 3-=92 

13— >82 

13— >39 

13->93 

1 3— >95 

1 3->97 

13- 

718 

13-731 

13-797 

13-304 

13-808 

13-810 

13-812 

13- 

823 

13-835 

13-888 

13-A04 

13-A11 

13-A15 

13-A24 

13- 

A28 

13-A35 

13-811 

1 3-81 5 

13-817 

13-819 

13-830 

13-841 

13-847 

13-C27 

13-C2V 

13-C31 

13-C38 

13-C44 

13- 

".48 

13-C61 

13— 077 

13-D81 

13-083 

13-D85 

13-D92 

13- 

D98 

13-E02 

13-E82 

13-E86 

13-E88 






i c 
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CROSS REFERENCE 

TABLE (CREF V04.00 

) 




ENDCOM 

4-492# 







ERROR 

4-492# 

13-25 

13-44 

13-52 

13-64 

13-75 

13-84 


13-126 

13-130 

13-132 

13-134 

13-138 

13-156 

13-164 


13-215 

13-223 

13-229 

13-233 

13-235 

13-237 

13-241 


13-308 

13-310 

13-312 

13-318 

13-324 

13-328 

13-330 


13-397 

13-401 

13-403 

13-405 

13-414 

13-420 

13-424 


13-492 

13-501 

13-505 

13-516 

13-522 

13-526 

13-528 


13-568 

13-576 

13-588 

13-597 

13-601 

13-612 

13-618 


13-646 

13-661 

13-669 

13-681 

13-690 

13-694 

13-705 


13-745 

13-749 

13-761 

13-767 

13-772 

13-786 

13-794 


13-844 

13-850 

13-856 

13-860 

13-862 

13-864 

13-884 


13-939 

13-961 

13-973 

13-982 

13-986 

13-997 

1 3- : 03 


13-.-71 

13-.-83 

1 3— : 89 

1 3- : 93 

13-.95 

1 3— : 97 

13-;03 


13-.-66 

13-.-70 

o-;72 

13-.-74 

13—; 81 

13— ;87 

1 3—; 91 


1 3— <53 

1 3— <55 

13— <57 

13-<64 

13-<70 

13— <74 

1 3-<76 


1 3-=38 

1 3— =61 

13-=72 

13-=79 

13— =88 

13-=90 

1 3-=92 


1 3— >82 

13->89 

1 3->93 

1 3->95 

13— >9? 

13-718 

13-731 


13-797 

13-804 

13-808 

13-810 

13-812 

13-823 

13-835 


13-888 

13-A04 

13-A11 

13-A15 

13-A22 

13-A24 

13-A28 


13-A93 

13-604 

13-611 

13-615 

13-617 

13-619 

13-B30 


13-694 

13-C16 

13-C23 

13-C27 

13-C29 

13-C31 

13-C38 


13-C92 

13-DOO 

13-007 

13-D12 

13-040 

13-048 

13-070 


13-E09 

13-E16 

13-E21 

13-E47 

13-E61 

13-E75 

13-E82 

ESCAPE 

4-492# 







GETPRi 

4-492# 







GETREG 

4-169# 







GETSWft 

4-492# 

10-28 

10-28# 





NSG 

4-8# 







AULT 

4-492# 







NEWTST 

4-492# 

13-2 

13-35 

13-146 

13-244 

13-337 

13-462 


13-<09 

13-<92 

13-=48 

1 3->02 

1 3— >57 

13-707 

13-756 

NWTST 

4-36# 

13-2 

13-33 

13-146 

13-244 

13-337 

13-462 


13-<09 

13-<92 

1 3— =48 

1 3->02 

1 3— >57 

13-707 

13-756 

POP 

4-492# 

13-17 

13-20 

13-24 

16-70 

16-296 

16-426 


21-63 

22-18 

23-31 

23-44 

24-145 

24-149 

25-127 


38-1 

45-1 

47-1 

47-1 

48-1 

48-1 


PUSH 

4-492# 

13-5 

13-14 

16-46 

16-289 

16-305 

16-444 


22-3 

23-9 

23-38 

24-141 

25-124 

25-440 

27-20 


47-1 

47-1 

48-1 

48-1 

48-1 



PUTREG 

4-450# 







REPORT 

4-492# 







RG8FAC 

4-69# 

7-0 

7-0 





SETPRI 

4-492# 

12-50 

41-5 

41-9 

44-1 



SETTRA 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

SETUP 

4-492# 

10-23 






SKIP 

4-492# 







SLASH 

4-492# 







STARS 

4-492# 

5-5 

5-f 

5-8 

5-8 

6-0 

6-0 


13-244 

13-244 

13-337 

13-337 

13-462 

13-462 

13-558 


13-948 

13-948 

13— :26 

1 3— r 26 

13— ;26 

13— ;26 

13-<09 


13->57 

1 3— >57 

13-707 

13-707 

13-756 

13-756 

13-862 


13-E36 

13-E36 

14-20 

15-57 

15-70 

15-84 

15-107 


25-529 

25-531 

36-1 

37-1 

38-1 

39-1 

40-1 


45-1 

46-1 

47-1 

47-1 

48-1 



SWRSU 

4-492# 

10-23 

10-23# 





TAGS 

4-103# 

6-0 







13-88 

13-99 

13-105 

13-109 

13-111 

13-113 

13-120 

13-176 

13-185 

13-189 

13-201 

13-207 

13-211 

13-213 

13-254 

13-262 

13-274 

13-283 

13-287 

13-298 

13-304 

13-332 

13-347 

13-355 

13-367 

13-376 

13-380 

13-391 

13-431 

13-436 

13-449 

13-455 

13-459 

13-472 

13-480 

13-530 

13-537 

13-543 

13-547 

13-549 

13-551 

13-555 

13-622 

13-624 

13-626 

13-632 

13-638 

13-642 

13-644 

13-711 

13-715 

13-717 

13-719 

13-728 

13-734 

13-738 

13-806 

13-815 

13-819 

13-830 

13-836 

13-840 

13-842 

13-896 

13-905 

13-909 

13-920 

13-926 

13-935 

13-937 

13—: 12 

1 3— : 1 4 

13-:16 

13-:36 

1 3— : 44 

1 3—: 58 

1 3— : 67 

1 3—; 09 

13—; 13 

13-.-15 

13-;17 

13-.-37 

13— ;45 

1 3—; 59 

13—; 93 

1 3—; 95 

13-.-99 

1 3-<20 

13-<28 

1 3— <42 

1 3-<49 

13— <78 

13— <82 

13-=05 

13-=18 

1 3— =25 

1 3— =34 

13-=36 

1 3— >13 

13— >26 

13— >33 

13->37 

13->39 

1 3— >41 

1 3->69 

13-738 

13-742 

13-744 

13-746 

13-766 

13-774 

13-786 

13-841 

13-845 

13-847 

13-849 

13-853 

13-872 

13-880 

13-A35 

13-A42 

13-A46 

13-A53 

13-A55 

13-A71 

13-A79 

13-841 

13-847 

13-851 

13-858 

13-863 

13-865 

13-HS6 

13-C44 

13-C48 

13-C61 

13-C66 

13-C74 

13-C79 

13-C87 

13-077 

13-081 

13-083 

13-085 

13-092 

13-098 

13-E02 

13-E86 

13-E88 

41-1 






13-558 

13-651 

13-775 

13-872 

13-948 

1 3— : 26 

13- 

■;26 

13-862 

13-A60 

13-873 

13-027 

13-E36 




13-558 

13-651 

13-775 

13-872 

13-948 

13-:26 

13- 

•;26 

13-862 

13-A60 

13-873 

13-027 

13-E36 




16-477 

17-69 

18-95 

19-25 

19-26 

19-27 

20- 

•70 

25-443 

27-51 

29-25 

30-58 

33-58 

33-59 

36- 


17-20 

18-17 

19-10 

19-11 

19-12 

20-35 

21- 

•29 ! 

29-12 

30-52 

33-51 

33-52 

36-1 

38-1 

45- 

•1 


46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1# 

6-0 

13-2 

13-2 

13-33 

13-33 

13-146 

13-146 

13-558 

13-651 

13-651 

13-775 

13-775 

13-872 

13-872 

13-<09 

13-<92 

1 3— <92 

1 5— =48 

l3-=48 

1 3— >02 

13->02 

13-862 

13-A60 

13-A60 

13-873 

13-873 

13-027 

13-027 

15-138 

15-160 

15-196 

16-212 

16-298 

16-302 

25-115 

41-1 

42-1 

44-1 

44-1 

44-1 

44-1 

44-1 
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CROSS 1 

REFERENCE 

TABLE (CREF VC4.00 

) 

TRNTRP 

46-1# 




TYPBIN 

4-492# 




TYPOEC 

4-492# 

14-20 

14-20 


TYPMAH 

4-480# 

4-492# 

10-28 


TYPNUH 

4-492# 




TYPOCS 

4-492# 

10-81 

12-16 

12-62 

TYPOCT 

4-492# 

11-33 

44-1 


TYPTXT 

4-492# 

10-6 

10-42 

10-53 

XPER 

4-12# 

8-3 

8-6 

8-9 


8-42 

8-45 

8-48 

8-51 


8' 84 

8-87 

8-90 

8-93 


8-126 

3-130 

8-133 

8-136 


8-172 

8-175 

8-178 

8-182 


8-215 

8-218 

8-221 

8-224 


8-257 

8-260 

8-263 

8-266 


8-299 

8-302 

8-305 

8-308 


8-341 

8-344 

8-347 

8-351 


8-384 

8-387 

8-390 

8-393 


8-426 

8-429 

8-432 

8-435 


8-468 

8-471 

8-474 

8-477 


8-510 

8-513 

8-516 

8-519 


8-55? 

8-556 

8-559 

8-563 


8-603 

8-606 

8-609 

8-612 


8-645 

8-648 

8-651 

8-654 


8-687 

8-690 

8-693 

8-696 


43-22 

43-39 

43-44 

43-46 


10-59 

12-30 

14-20 

14-20 

8-24 

a- 12 

8-15 

8-18 

8-21 

8-54 

8-57 

8-60 

8-63 

8-66 

8-96 

8-99 

8-102 

8-105 

8-108 

8-139 

8-142 

8-146 

8-150 

8-154 

8-185 

8-188 

8-191 

8-194 

8-197 

8-227 

8-230 

8-233 

8-236 

8-239 

8-269 

8-272 

8-275 

8-278 

8-281 

8-311 

8-314 

8-317 

8-320 

8-323 

8-354 

8-357 

8-360 

8-363 

8-366 

8-396 

8-399 

8-402 

8-405 

8-408 

8-438 

8-441 

8-444 

8-447 

8-450 

8-480 

8-483 

8-486 

8-489 

8-492 

8-522 

8-525 

8-528 

8-531 

8-534 

8-566 

8-569 

8-573 

8-577 

8-581 

8-615 

8-618 

8-621 

8-624 

8-627 

8-657 

8-660 

8-663 

8-666 

8-669 

8-699 

8-702 

8-705 

8-708 

8-711 


8-27 

8-30 

8-33 

8-36 

8-39 

8-69 

8-72 

8-75 

8-78 

8-81 

8-111 

8-114 

8-117 

8-120 

8-123 

8-157 

8-160 

8-163 

8-166 

8-169 

8-200 

8-203 

8-206 

8-209 

8-212 

8-242 

8-245 

8-248 

8-251 

8-254 

8-284 

8-287 

8-290 

8-293 

8-296 

8-326 

8-329 

8-332 

8-335 

8-338 

8-369 

8-372 

8-375 

8-378 

8-381 

8-411 

8-414 

8-417 

8-420 

8-423 

8-453 

8-456 

8-459 

8-462 

8-465 

8-495 

8-498 

8-501 

8-504 

3-507 

8-537 

8-540 

8-543 

8-546 

8-549 

8-586 

8-590 

8-594 

8-597 

8-600 

8-630 

8-633 

8-636 

8-639 

8-642 

8-672 

8-675 

8-678 

8-681 

8-684 

8-714 

8-717 

8-720 

8-723 




